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AS YOU MAY ALREADY KNOW, THE COMMODORE 
64 HAS MANY UNIQUE CHARACTERS. NOT MANY 
PRINTERS CAN HANDLE THESE CHARACTERS, SO 
THEY USE SUBSTITUTE CHARACTERS. ALL OF 
THE LISTINGS IN THIS BOOK ARE DONE IN 
THIS WAY. 

BELOW IS A TABLE THAT CONVERTS PRINTED 
CHARACTERS TO COMMODORE 64 CHARACTERS. 
FOR EXAMPLE, IF YOU FOUND AN A IN A 
LISTING YOU WOULD TYPE A SHIFTED ’A’ ON 
YOUR COMPUTER. 

(SHIFT MEANS USE THE SHIFT KEY, 
COMMODORE MEANS USE THE COMMODORE KEY.) 
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HEXPERTY 


Bert Lives on a planet, ina galaxy far away. He has 
been captured by the evil witch Spotack, and has_ been 
forced to play on her '3-D Grid’. 


Bert has to try and change the top faces of the crosses 
to yellow. If he does this, he can escape. Spotack 
throws rubber balls down the grid to crush Bert. To make 
things even harder, her pet snake, Coiles, chases Bert 
around the grid. 


Bert has two disks on which he can jump to try and Lure 
young Coiles to death. Once all the faces have been 
painted yellow, Bert is forced to start all over again. 


Your controls: 


to move up/Left 

to move down/right 
to move up/right 
to move down/Left 


=ZAN DS 
1 


t£ POKE2640, 196: POKE29491,19494: POKE2942,195 


*>POKE2943, 194; POKE294949, 197 
2 FORX=194TO197 


3 FORY=98T063: READA: POKEX#649+Y,A: NEAT: NEX 
T 

? DIMS(21)°LI=3 

196 PRINT"{CLRi": POKES3289,9:POKE53231,9 
11 INPUT"HOW MANY SCREENS"SRS 

12 IFRS?iISTHENPRINT:PRINT"NOW COME ON, L 
ETS BE REASONABLE!" :GOTO11 

13 IFRS<1THENPRINT:PRINT"NOT MUCH OF A C 
HALLENGE!”":GOTO11 

29 SR=d 

199 S=0: TR=9: RT=G: NM=9: GH=08: QW=9 

191 POKEV+16,9 

195 DI(1)=6:.DI (2) =G@: FORTH=1TO21°S(TH) =9: 
NEXT 


2098 C$="{BLU} {CYN}{RVS ON} C{RVS OGFFICB 
LU} {RVS ON}{CUR DN} {CUR L}3{CUR L}3{CUR L 
3{CUR L3<CYN} {CUR DN3{CUR L3{CUR L3¢ 
CUR L}{CUR L}<{BLU} {CYN} {BLU} (CUR DN} 
{CUR L}{CUR L3{CUR L}{CUR L} {LT BLU} ¢ 
BLU} {CUR DN}{CUR L3<{CUR L}{CUR L}{CUR L 
> {LT BLU} {BLU} {CUR DN3{CUR L3{CUR L} 
{CUR L}{CUR L}{RVS OFF}"+CHRS(223) 

265 C#=CH+"{RVS ONI{LT BLU} {BLUILRVS O 
FF} "+CHRS(169) 

219 DS=" {RVS ON}{CYN} {CUR DN3{CUR L3¢ 
CUR L}<CUR L} {CUR DN}{CUR L}{CUR L3¢ 
CUR L3{CUR L}{BLU} {CYN} {BLU} {CUR DN} 
{CUR L}{CUR L}{CUR L}{CUR L} {LT BLU} ¢ 
BLU} {CUR DN}{CUR L3{CUR L3{CUR L3¢{LT BL 
U} {CUR DN}<CUR L3{CUR L} " 

2286 PRINT"{CLR}{CUR DN}{CUR DN}{CUR DN} 
CUR DN}{CUR DN}<{CUR DN}{CUR DN}{CUR DNi¢< 
CUR DN3{CUR DN}{CUR DN}{CUR DN}{CUR DN} 
CUR DN}{CUR DN}{CUR DN}{CUR DN}{CUR DN3¢< 
CUR DN3{CUR DN}3" 

239 LS="{CUR UP}{CUR UP}{CUR UP}{CUR UP} 
{CUR UP}{CUR UP}{CUR UP}{CUR UP}¢CUR L}" 
249 FS="{CUR UP3{CUR UP}" 

259 PRINTCSLSDSFSCSLSDSFSCSLSDSFSRCSLEDSF 
SCBLSDSFSCH 

268 PRINT"{HOME}{CUR DN3{CUR DN}{CUR DN} 
{CUR DN}{CUR DN}{CUR DN}{CUR DN}{CUR DN} 
{CUR DN3{CUR DN3{CUR DN" 

278 L$="{CUR UP}{CUR UP}{CUR UP}{CUR UP} 
{CUR UP}{RVS OFF} ‘ 

288 PRINTSPC (4) DSLSDSLSDSLSDS © 

298 PRINT" {HOME}{CUR DN3{CUR DN}{CUR DN3 
{CUR DN}{CUR DN}{CUR DN}{CUR DN}<{CUR DN} 


390 PRINTSPC (9%) DSLSEDSLEDS 

316 PRINT"{HOME {CUR DNS{CUR DN {CUR DN} 
{CUR DNS{CUR DN3?" 

326 PRINTSPC (12) DSLSDS 

3308 PRINT" THOMES{CUR DNF CCUR DNFTCUR DN; 
"SPC (15) DS 

349 DIS="{GRNIIRVS ON} "+CHRS(169) +" "+C 
HRS$(223)+"C{CUR DN {CUR L{CUR Li{CUR Lit 
CUR L3"+CHRS(2905) +CHRS(175) +CHRS (175) 


345 DIS=DIS+CHRS(206)+"{CUR DN} {CUR LI<C 
UR L3{CUR L3?{CUR L}<{RVS OFF} "+CHR$(223) + 
"{€LT GRN}CRVS ON} {RVS OFF} {(GRN}"+CHRS ( 
169) 

359 PRINT" {CHOME}{CUR DN}{CUR DN}{CUR DN} 
{CUR DN}?{CUR DN}{CUR DN3}{CUR DN}{CUR DN} 
{CUR DN3}{CUR DN} "DIS 

346@ PRINT" {HOME} ICUR DN}<{CUR DN}{CUR DN} 
{CUR DN}{CUR DN}?{CUR DN}{CUR DN3{CUR DN} 
{CUR DN}?{CUR DN}"SPC(28) DI& 

LGB REM HHKKHHHHHHHK 

1919 REM MAIN ROUTINE 

LDZA REM HHKHHH HHH HHH 

1938 PRINT" CHOME}{(CUR DN}{CUR DN} {RED}LI 
VES"LI 

1978 V=53248:POKEV+21,15 

1G@8@ X=159!:Y=120: A=15G!: B=G!POKEV+39,11:P 
OKEV+49, 9: @=1752W=78:TS=1:POKEV+41,2 
1985 N=159:M=35!: POKEV+42, 9: ZC=1:2V=1 
199@ POKEV, X: POKEV+1, ¥2 POKEV+2, A: POKEV+3 
,B: POKEV+4, @: POKEV+S,W 

1@91 POKEV+6,N:POKEV+7,M 

1996 IFXZ>HSTHENHS=XZ 

1998 PRINT" {HOME} {PUR}SCORE"%Z: PRINTSPC ( 
25)"{CUR UP}{YEL}HIGH"HS 

1199 L=PEEK(V+39) AND1 

1191 IFDI>S@THENI15¢ 

1192 GETAS 

1119 IFAS="A"THENY=Y-25: X=X-25: GOSUB9192 
1128 IFAS="Z" THENY=Y+25! X=X+25: GOSUB9196 
1139 IFAS="K" THENX=X%+252 Y=Y-25: GOSUB919¢ 
1149 IFAS="M" THENY=Y+25: X=X-25: GOSUB9 199 
115@ IFX>255THENX=15: POKEV+164, 1 

1168 IFX<@ANDPEEK (V+16) =1 THENX=259@: POKEV 
+16,9 

1170 IFDI(1) =@ANDX=5SANDY=12G0RDI >STHENG 
OSUBS599 

1171 IFDI(2) =@ANDX=259ANDY=12G0RDI >STHEN 
GOSUBS59¢ 

1172 IFDI (2) =@ANDX=25@ANDY=1290RDI >STHEN 


GOSUBSS99 
1173 POKEV, X:POKEV+1, Y:GOSUB7999 


1179 IFS?*FGTHENXK2Z=X2+59: IFXZ >HSTHENHS=X2Z 
1175 PRINT" {HOME} {PUR}SCORE"XZ:PRINTSPC ( 


295) "{CUR UPS {YEL}HIGH"HS 


1176 
1296 


IFS=21THENS199 
IFTS=1THENI499 


13GG REMKXXKKKKKX 


1319 


IFW=17GANDQ< SGORW=17S8ANDQ>259THENGO 


SUBSSSE 


13269 


ITFW=14S5ANDQ<¢ ZSORW=1495ANDQ>225THENGO 


SUBSSIDSG 


1332 


TFW=12GANDQ< 1PGORW=12GANDQ>266THENG 


OSUBSS9S 


1346 


TFW=PS5ANDQ< 1 250RW=9SANDQ?17S5THENGOS 


UBSSISG 


1359 


TFW=7GANDG< 1 SGORW=7GANDQ>1LSSTHENGOS 


UBSHDD 


1360 
14°96 
1491 
1495 
13566 
15196 
13536 
1549 
13559 
1569 
1570 
1589 
1599 
1699 
1616 
1629 
1636 
14649 
2AGR 


2EGi2 
2H1G 


IFW> 1 9S2THENGOSUBSHSG 
IFFL<S >S@THEN13559 


TFPEEK (V+16) =1 THENS9S99 


IFY >195THENS499 | 
IFAS =XANDB<¢ =Y THENFL=4: GH=1: GOTO299@¢ 
IFA=>XANDB=>YTHENFL=1 : GOTO2996 
IFA=>XANDB<=Y THENFL=3: GH=1: GOTO299¢ 
IFAS =XANDB >=Y THENFL=2:! GH=1!: GOTO29699 
IFRT< >STHEN1L 699 

IFQ@<=XANDB< =WTHENRT=4! QW=1!: GOTO2999 
IFQ=>XANDW=>¥Y THENRT=1! QW=1: GOTO2992 
IF@Q=>XANDW<=Y THENRT=3! QW=1! GOTO2G69 
IFQ< =XANDW >=Y THENRT=2! QW=1: GOTO2999 
IFTR< >STHEN2ZSSS 

IFN< =XANDM< =Y THENTR=4: NM=1:! GOTO29692 
IFN=>XANDM=>YTHENTR=1:NM=1!:GOTO269¢ 
IFN=>XANDM<=Y THENTR=3!NM=1!: GOTO298G 
IFN<=XANDM >=Y THENTR=2: NM=1!: GOTO2999 
IFFL=9ORZV=10RDI >STHENS9OE 
IFFL>1THEN2969 

IF GH=1 THENB=B-15: GH=2: GOSUB9258: GOT 


02963596 

2626 IFGH=2THENA=A-186: B=B-39: GH=3: GOTO29 
rs) 

29639 IFGH=3THENA=A-19: B=Bt190: GH=4: GOTO2S 
rst] 

2949 IFGH=4THENA=A-5: B=Bt19: FL=0: G=8:H=9G 
> GH=9: GOSUBS 259 

2956 POKEV+2,A:POKEV+t3, B: GOTO39S8S 


2868 IFFL>2THEN2Z15@ 

2878 IFGH=1THENB=B-15: GH=2: GOSUB9254: GOT 
0214¢ 

2988 IFGH=2THENA=A+19: B=B-39: GH=3:GOTO21 
4g 

2998 IFGH=3THENA=A+19! B=B+19: GH=4: GoTO21 
AG 

2198 IFGH=4THENA=A+5: B=B+19:FL=9: G=@:H=9 
*GH=G: GOSUB9259 

2149 POKEV+2, A: POKEV+3, B! GOTO3G9E 

215@ IFFL>3THEN2229 

2168 IFGH=1THENA=A-19: B=B-5! GH=2: GOSUB92 
59:GOTO2299 

217G IFGH=2THENA=4-19: B=B+5!: GH=3: GOTO229 
g 

2188 IFGH=3THENA=A-2: B=B+12:! GH=4: GOTO229 
re) 

2199 IFGH=4THENB=B+t1i3! A=A-3:FL=@: GH=9: G= 
@:H=G: GOSUBS 259 

2299 POKEV+2, A: POKEV+3,B 

2219 GOTO3sa¢e 

2228 IFFL< >4THEN3S S99 

2221 IFGH=1THENA=A+19: B=B-5: GH=2! GOSUB92 
59: GOTO2399 

2238 IFGH=2THENA=A+19: B=B+5! GH=3: GOTO2Z32 
g 

2249 IFGH=3THENA=At2! B=B+12: GH=4: GOTO239 
g 

2258 IFGH=4THENA=A+3: B=B+13:FL=8: G=@:H=9 
: GH=9: GOSUB9259 

2398 POKEV+2,A!:POKEV+3, B: GOTO3999 

3GG@ IFRT=GORTS=1THENS599 

3881 IFRT>1THENSS69 

3G1@ IFQW=1THENW=W- 15! @W=2! GOSUB9259: GOT 
0395¢ 

3920 IFQW=2THENQ=Q-19: W=W-398: QW=3: GOTO39 
50 

3938 IFQW=3THENG=G-18:W=W+19! QW=4: GOTO39 
59 

3849 IFQW=4THENG=Q-5: W=Wt19!QW=@:RT=G:GO 
SUB9259 

38959 POKEV+4, @: POKEV+S, W: GOTO3599 

3969 IFRT>2THENS15@ 

3978 IF@W=1THENW=W-15: Q@W=2! GOSUB9258: GOT 


03146 

39890 IFQW=2THENG=Qt+1902:W=W-39:QW=3:GOTOS1 
49 

39G9G IFQW=STHENG=Q+190:W=Wt1G: QW=4:GOTO31 
46 

S199 IFQW=4THENG=Gt5: W=Wt10: QW=G:RT=6: G60 
SUBY2350 

3199 POKEV+4, @: POKEV+S,W: GOTO3596 

31598 IFRTSSTHENS229 

3168 ITFQW=1THENG=Q-19:W=W-5: QW=2: GOSUBS2 
398: GOTO3266 

3178 IFQW=2THENG=GQ- 16: W=Wt5! QW=3:GOTO328 
G 

3186 ITFQW=S3THENQ=Q-2: W=Wt12: QW=4: GOTO32¢ 
4) 

3199 ITFQW=4THENW=W+13: @=Q-3:RT=6: QW=6:G0 
SUBY239 

32906 POKEV+49,Q@: POKEVtS, W 

32198 GOTO359¢9 

32290 IFRT< -4THEN3S596 

3221 IFQW=1 THENG@=Q1+196:W=W-5: QW=2:GOSUB92 
382 GOTO3369 

32308 IFQW=2THENQ=Q+19: W=WtS: QW=3: GOTO336 
4] 

$2906 IFQW=S3THENG@=Q+t+2: W=Wt1l2: QW=4: GOTOS39 
4) 

32598 IFQW=4THENG=Qt3:2W=Wt1l3 : RT=0: QW=9:G0 
SUB9Y256 

3390 POKEV+t494,Q: POKEVt5S,W 

3568 IFTR=@GORZC=10RDI>GTHENFHES 

3591 IFTR>1THEN3569 

3519 IFNM=1 THENM=M-15:NM=2: GOSUBS256: GOT 
03556 

3528 TFNM=2THENN=EN-16:M=M-39:NM=3: GOTO35 


rad) 
35309 IFNM=S3THENN=N-196: M=M+16:NM=4:. GOTOSS 


52 

3549 IFQW=4THENN=N-5:M=M+192NM=@: TR=98: GO 
SUB925D 

3559 POKEV+6,N:POKEV+7,M: GOTO4g9aa 

3569 IFTR>2THEN3629 

3578 IFNM=1THENM=M-15:NM=2: GOSUB925@: GOT 
03619 

3588 IFNM=2THENN=N+19!: M=M-39:NM=3: GOTO36 


1g 

3$35°O@ ITFNM=S3THENN=N+16:M=M+19: NM=4: GOTO36 
19 

3690 IFNM=4THENN=N+5: M=M+102NM=6: TR=6: GO 
SUBYS25¢9 

5619 POKEV+6,N:POKEV+t?7,M: GOTO4966 

3626 IFTR>STHENS699 

36390 IFNM=1 THENN=N-16:M=M-5: NM=2: GOSUBS2 
59: GOTO367¢9 

3699 IFNM=2THENN=N-19:2M=M+5:NM=3: GOTO367 


4) 

36598 IFNM=S3THENN=N-2:M=M+12°NM=49: GOTOS6/ 
2) 

3669 ITFNM=4THENM=M+13:N=N-3: TR=9: NM=9: GO 
SUB9Y2590 


3670 POKEV+6,N:POKEV+7,™ 

3688 GOTO4S49S9 

36990 IFTR< >4THENSSOG 

3796 IFNM=1 THENN=N+16:M=M-5:NM=2: GOSUBS2 
39: GOTO3749 

3718 IFNM=2THENN=N4+19:M=M452NM=3: GOTO374 
G 

3726 IFNM=3THENN=N4+2: M=M4+12:2:NM=4: GOTO374 
4) 

3738 ITFNM=4THENN=N+32M=M+132 TR=G:NM=6: GO 
SUB925¢ 

3748 POKEV+6,N!:POKEV+7,M 

4996 POKEV, X:POKEVt+1,Y: IFPEEK(V+t16) =1 THE 
N4949 

4636 L=PEEK(V+3@) ANDI: IFL=1THENGOSUBS369 
4946 IFTS=1 THENGOSUBSS5¢ 

4959 IFZV=1THENGOSUBS59q¢ 

4949 IFZC=1THENGOSUB954¢ 

4G9@ GOTO1IG?SS 

5SOGA REM KKKKKHKHHKH 

3918 REM SPRITE DATA 

5SI2G REM KHKHKKKHKHKHK 

3938 DATAS, 255,9,1,255,128,3,255,192,7,1 
27,2249,194,127,249,28,127, 298,564,255, 252 
399499 DATA121, 255, 254, 254, 255, 255, 255, 255 
(205,255. 20020, 2ooy 209,250, 22 oy 2 oly Zoo 
399359 DATA127, 255, 254,63, 255, 252,31,255,2 
48,15, 255, 249,7, 255, 224,3, 255,192 

S855 DATAI, 255,128,46,255,9,2 


5SG6G DATAS1, 224,49, 31, 248,9,25,252,9,351,1 
59,8,31,15,9,9,63,9,9, 252,9,3,248,9 

5070 DATAS,192,9,7,128,9,15,128,9,15,9,9 
»149,8,8,1494,15, 248, 149,15, 248,14,9,28 

5989 DATA15S,@,12,7,128, 12,3, 255, 252,1,25 
5,248,9,255,249,9 

598 DATAG,9,9,3,2498,9,7,252,9,7,255,9,1 
4,63,192, 28, 127,192,56, 127,192,129, 255,@ 
5198 DATA121,254,112,127, 252, 248,127,253 
, 252,127,253, 252,127, 252, 254,63, 254,122 
5119 DATAS1,255,54,15, 255, 28,8,112,9,7,1 
43,9,7,297,128,3, 239, 192,1,231,192,9 
5126 DATAS,62,9,1,255,128,3,117,128,7,64 
,96,7,117, 249, 3,192,129,3,117, 248 

5138 DATA1, 255, 248,909,123, 249,9,61, 224,G, 
59,128,9,126,9,9,252,9,1,249,9,3,192,@ 
5149 DATA3,9,9,9,9,9,9,9,9,99,9,99,9,9,9 
,9,9,9,9 

FOAAD REM XXKKKKHKKKKKKKKHEK 

7@G1 POKEV,X!POKEV+1,Y 

7OG2 IFY>195STHENS6SE 

7G@3 IFDI>S@THEN7ZGS?7 

7884 IFY=7GANDX> 1 SATHENS6RE 

7995 IFY=7G9ANDX< 1SSTHENS469S 

7886 IFY<7GANDDI< 1 THENS692 

7887 FG=S 

7G1G DS="{HOME}{CUR DN}{CUR DN3{CUR DN3¢ 
CUR DN}{CUR DN}{CUR DN}{CUR DN3{CUR DN}¢ 
CUR DN3}{(CUR DN3{CUR DN}{CUR DN3{CUR DN3¢ 
CUR DN}{CUR DN}{CUR DN}{CUR DN3}{CUR DN}¢ 
CUR DN}<(CUR DN3{CUR DN}{CUR DN3" 

7G2G ASB="{YEL}{RVS ON} {CUR DN}{CUR L3¢ 
CUR L3<{CUR L} {CUR DN}{CUR L}{CUR L¢ 
CUR L} (¢RVS OFF3" 
7838 IFY=7GANDS (1) =9THENPRINTLEFTS (DS, 4) 
SPC (16) AS! S=St1!S(1)=1!:RETURN 

7858 IFY=95THEN7Z15@ 

7868 IFY=12G9THEN7189 

27O78 IFY=145THEN7Z239 

7G@8O IFY=179THENZ399 

7898 IFY=195THEN7Z499 

7196 RETURN 

7iS@ IFX=125ANDS(2) =@THENPRINTLEFTS (DS, 7 


)SPC (13) AS: S=St1:°:5(2)=1:°:RETURN 

7168 TFXK=175ANDS(3) =S@THENPRINTLEFTS# (DS, 7? 
YSPC (19) AS: S=St+1°95(3)=1: RETURN 

7165 ITFX< 1 250RK>17STHENS 696 

71798 RETURN 

71898 IFX=19@G@ANDS (4) =STHENPRINTLEFTS (DS, 1 
G)SPC(19) AS: S=St1:°:59(9) =1:2: RETURN 

7196 IFX=15GANDS (5) =STHENPRINTLEFTS (DS, 1 
@)SPC (16) AS: S=S+1°S9(5)=1:5; RETURN 

72908 ITFX=26GANDS (6) =GTHENPRINTLEFTS (DS, 1 
G)YSPC (22) ASiS=St12:95(6)=1°: RETURN 

7215 IFAS 199ORK > 29BTHENS 698 

7229 RETURN 

22306 IFXK=7SANDS (7) =OTHENPRINTLEFTS(D%,13 
)SPC (7) ASBi S=St1:5(7)=1:°: RETURN 

7299 IFK=1L25ANDS (8) =STHENPRINTLEFTS(DS, 1 
3) SPC (13) AG? S=St1°5S(8)=1:RETURN 

7298 ITFRK=17S5ANDS (9) =GTHENPRINTLEFTS(DS, 1 
3) SPC (19) AS: S=S+1°5(9)=1° RETURN 

2269 TFK=225ANDS (19) =SGTHENPRINTLEFTS (DS, 
13) SPC (25) AS: S=St1:':5(19)=1:2 RETURN 

7269 IFX<750RX% > 2S25STHENGOSUBP 69D 

72/768 RETURN 

7390 IFX=SGANDS(11)=GTHENPRINTLEFTS(DS&, 1 
6)SPC (94) AS: S=St13:9S(11)=1° RETURN 

73190 IFX=196ANDS (12) =S6THENPRINTLEFTS (DS, 
16)SPC (19) AS: S=S+1:S(12)=1:RETURN 

73298 IFX=159ANDS (13) =STHENPRINTLEFTS(DS, 
16) SPC (16) AS: S=St+1:59(13) =1°> RETURN 

23398 IFKX=26GANDS (194) =G6THENPRINTLEFTS(DS, 
16) SPC (22) AS: S=St1:9S(14)=1:) RETURN 

2399 TFK=259ANDS (15) =STHENPRINTLEFTS(DS, 
16)SPC (28) A$: S=St1i°:S(15) =1: RETURN 

7345 IFX<SMORX >258THENS699 

73598 RETURN 

29968 IFX=25ANDS (16) =STHENPRINTLEFTS (DS, 1 
9) SPC (1) AS) S5=St1°5(146) =1: RETURN 

2910 IFX=75ANDS (17) =STHENPRINTLEFTS (DS, 1 
9)SPC (7) AS: S=St1°595(017)=1°:RETURN 

2920 IFA=125ANDS (18) =STHENPRINTLEFTS$(DS$, 
19) SPC (13) AS: S=S+1:5(18)=1: RETURN 

2936 IFA=17S5ANDS (19) =STHENPRINTLEFTS(DS, 
19) SPC (19) AS S=St1°55(°19)=1° RETURN 

7949G IFK=225ANDS (29) =@THENPRINTLEFTS(DS, 


19) SPC (25) AS. S=St1°5 (26) =1> RETURN 


7458 


TFA=15ANDS (21) =STHENPRINTLEFTS (DS, 1 


PISPC(S1IASBIS=SAt125(21)=1: RETURN 


7455 
7456 
746o 
Saag 
SGgG1 
Saaz 
SAGs 
S9G4 
Sggs 
SIGBG 
SAG? 
8g18 


SG1s5 
SGH16 
SO1i?7 


IFPEEK (V+16) =GANDX< 25THENS699 
IFPEEK (V+16) =1ANDX>15THEN?499 
RETURN 

REM ¥*% COILY’S DEATH *** 
IFW>19STHENSSS7 

IFQ> 1 59THEN@=Q+29: IFQ>255THENQ=255 
IFQ< 1S@THENQ=Q-2@: IFQ<STHENG=5 
POKEV+4, @! POKEV+S, W 

IF@> 1 59THEN@=Q+25! IFQ>255THENQ=255 
IFQ< 1 59THENQ=Q-25: IFQ< STHENQ=5 
POKEV+4, @:POKEV+t5S,W 
POKEV+41,14:TS=1 

GOSUB9995 


TY=Wt6S: IF TY >235S5THENT Y=2998 
FORTT=WTOTY: POKEV+S, TT: NEXT: POKEV+4 


,9:POKEV+5, @: POKEV+41, 2 


BI2G 
SI308 
3h49 
SO308 
SHG 
SO/B 
Sd3sg 
S1GPG 
3119 
812¢4 


S130 


RT=9: QW=9 
@=175!W=50: POKEV+4, Q@! PFOKEV+t5S,W 
XZ=XZ+199G!RETURN 

REM *¥%% COILY’S DECENT ¥** 
W=W+5!POKEV+S,W 

IFW=95THENTS=9 

RETURN 

REM **¥* COMPLETE SCREEN *** 
POKEV+21,9!:PRINT"{CLR}" 
SR=SR+1:PRINT:IPRINT"{WHTIWELL DONE. 


PRINT: PRINT"{LT BLUSLIVES"LI:SPRINTS 


PC(1@)"{CUR UP} {OR}SCREENS LEFT"RS-SR 


814G@ PRINT: PRINT" {RED} {£RVS ON} {RVS OFF 

SS ee an {RVS ON} (€RVS OFF" 

8150 PRINT" {YELS BONUS SOHGOCREDI{RVS ON; 
{RVS OFF" 

S160 -PRINT“tRVS “ON? CRVS GEE? <=====-+=+--= { 


RVS ON} {RVS OFF?" 


S176 


Zz 
3189 


XZ=XZ+3G0G: PRINT: PRINT" {PUR}SCORE"X 


IF X2 >HSTHENHS=XZ: PRINT: PRINT"{CYN}Y 


OU HAVE THE HIGH SCORE" 


S190 
3195S 


PRINT: PRINT"{LT GRN}HIGH"HS 
IFSR=RSTHENPRINT: PRINT"{CYN? YOU HAV 
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E NO 


S299 
S216 
S225 
83230 
S388 
S365 
3306 
S387 
3310 


EV+9, 


3320 


SCREENS LEFT. WELL DONE!!" 

PRINT: PRINT" {WHTSHIT ANY KEY" 
GETGS: IFGS=""THENS8219 
IFSR=RSTHENS496 

GOTO1L9S 

REM ***% LOSE A LIFE *** 
POKEV+t+21,31:POKEVt+23, 16: POKEVt+29,16 
IF K>=2496THENQZ=X%i X=2495 

IFX< 246THENQZ=X 

LI=LI-1:° POKEV+t+43, 1: POKEV+tS, X+16: POK 
Y¥-290: GOSUB929S 
A=ONZ°QZ=G85 A=150. B=0:,Q=1752>W=70: TS=1 


>M=15G°>M=35:)2C=1°:2V=1 


3330 
8349 


RT=9: QW=G8 
PRINT" {HOMES( CUR DNS{CUR DNSTREDSLI 


VES"LI 


S345 
83508 
8360 


+7,™ 
837g 
S3eg 
849g 


S414 
S426 


3430 


IS"HS 


3446 


THER 
84359 


84460 


FORNK=1TO769°: NEXT 
IFLI=STHENS499 
POKEV+2,A:POKEV+3, B: POKEV+6,N: POKEV 


POKEV+21,15:POKEV+8, 6: POKEVt9,@¢ 
RETURN 

REM *** END OF GAME *X** 
POKEV+21,0: PRINT" {CLR?"” 

PRINT" {WHT} YOU SCORED@" XZ 

PRINT: PRINT"{ORSAND THE HIGH SCORE 


PRINT: PRINT" {PURSWOULD YOU LIKE ANO 
GAME ON THE GRID?" 

GETGS: IFGS=" "THEN8459 
IFGS="N"THENPRINT"{CLR3C{LT BLUFF": PO 


KE53281,6: POKES3289, 14: END 


38479 
3480 
S588 
SSGi1 
S3IG2 
S383 


IFGS< >" Y" THENS45¢4 

POKEV+16,63 XZ=9:LI=3:GOTO19 

REM ** MOVE DISK ** 

XZ=XZ+19G 

IF XZ >HSTHENHS=XZ 

PRINT" {HOME} CPUR} SCORE" XZ: PRINTSPC ( 


23) "{CUR UP CYELSHIGH"HS 


S319 


DS="{HOMES {CUR DN3{CUR DN3{CUR DN 


CUR DN; {CUR DNFCCUR DNSTCUR DNS{CUR DNit 
CUR DN3{CUR DN3" 


SSil 


L?{CUR L3{CUR Li 


{CUR DNS{CUR LitCUR LI{CUR 
{CUR DN-TCUR LstTCU 


DD$=" 
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R L3f{CUR L3{CUR L3{CUR L} e 


S32 
3525 


IFX=259G0RDI>1S5THENS/SOD 
PRINT" {HOME3{CUR DN3{CUR DNICCUR DN 


{CUR DNICCUR DN TCUR DN {CUR DNs{CUR DN 


*{CUR DN3C{CUR DN} 


S326 
S330 


8549 
S530 


83369 
BS35728 
S58 


"DDS 

IFDI >STHENS359 

DI=3S:DI(1)=1 

K=19 

A=KAtGLY=HT-1G 
PRINTLEFTS(D%,K)SPC(DI) DDS 
K=K-1:DI=DItli 
PRINTLEFTS(DS,K) SPC (DI) DIS: POKEV,<X: 


POKEV+1,Y 


SIPD 
S595 
S6DG 


B4616 
S626 


IFK=1THENS699 

RETURN 
PRINTLEFTS(D%,K) SPC (DI) DD#!:K=@: DI=@ 
X=150!Y=7G!:POKEV, X!:POKEV+1,Y 
IFDI(1)=@THENPRINT"{HOME?}{CUR DNC 


UR DN}{CUR DN}{CUR DN} {CUR DN}{CUR DN}{C 
UR DN}{CUR DN}{CUR DN}{CUR DN} "DIS 
S439 IFDI(2)=@THENPRINT" {HOME} {CUR DN3<{C 
UR DN}3{CUR DN}{CUR DN}<{CUR DN3{CUR DN3{C 
UR DN}{CUR DN}{CUR DN3}{<{CUR DN}"SPC(28) DI 
$ 

8648 RETURN 

S799 PRINT" {HOME}{CUR DN}{(CUR DN}3{CUR DN 
3}€CUR DN3{CUR DN}{CUR DN}{CUR DN}<{CUR DN 


7{CUR DN}{CUR DN}"SPC (28) DDS 


B/785 
3716 
3/729 
3738 
3748 
8/7308 
3768 


IFDI >@THENS73@ 

DI=28:DI(2)=1 

K=1@ 

X=X-BIY=Y-1G 
PRINTLEFTS(D%,K) SPC (DI) DDS 
K=K-1:DI=DI-1 | 
PRINTLEFTS(D%,K) SPC (DI) DI#! POKEV,X: 


POKEV+1,¥ 


37/6 
3730 
PAGS 


FOG1G 
PH25 


IFK=1THENS699 

RETURN 

REM *XXMUSTI CHEE 

REM **%¥ FALLEN OFF GRID ¥** 
POKES4276,90: POKES9296, 15: POKES4273, 


37; POKES9277,134: POKES9276, 129 


PAA 


RETURN 
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FISD 
9198 


9116 


RETURN 
REM *** BOUNCE *** 
POKES4276,90:POKES4296, 15: POKES4273, 


7:POKES4277, 134: POKES4276, 33 


9129 
P2H5DB 


9216 


4296, 


3335 


92908 
2250 


9269 


RETURN 

REM *** CAUGHT *X** 
FORFG=15TOSSTEP-1:POKE59276,90: POKES 
FG: POKES4276, 129: POKES4277,15 
POKES4273, 490: POKES494272, 266: NEXT 
POKES4276, 6: POKES4277,@ 

RETURN 

REM *** BOUNCE BALL *** 
POKES49$283, 9: POKES4296, 15: POKES4289@, 


2494; POKES4284, 134: POKES4283, 33 


9276 
PS5GA 
95168 
93268 
9330 
9545 
95505 
9368 
P6LiG 
9619 
2628 
9675 
9680 


97GB 
9716 


RETURN 
REM *** BALLS DECENT *** 
B=B+5:POKEV+3,B 
IFB=75THENZV=9: FL=9! GH=9 

RETURN 

M=M+5:POKEV+7,M 

IFM=75THENZC=8 

RETURN 

REM *¥% YOU FALL OFF GRID **¥* 

IFX< LSOTHENX=X-25: IFX< 2GTHENX=208 
IFX>159THENX=X%+253 IFX>255THENX=255 
POKEV, X:POKEV+1,Y 

GOSUBSEE8g 
TY=Y+65! IF TY >255THENTY=29@ 
FORTT=YTOTYSTEP2! POKEV+1, TT: NEXT:PO 


KEV,@!:POKEV+1,@ 


9726 


GOTO8482 


READY. 
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QUEST FOR 
RIEMANNIAN 


Science fiction seems to occupy a niche in the mind of 
modern man which was in earlier ages filled with tales 
of witches and werewolves. 


Science fiction stories are an underlying myth of our 
age. This explains, in part, the popularity of computer 
games based on science fiction backgrounds which are now 
part of the accumulated information we carry in our 
heads. Television programs, like Paramount Picture's 
perennial classic 'STAR TREK', and movies such as STAR 
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WARS have spawned a huge number of popular games, and 
novels of writers Like Asimov and Heinlein have given 
game creators flesh to fill out the relatively bare 
Trekkers’! universe. Who would not gladly take on the 
training to become a Jedi knight? 


QUEST FOR RIEMANNIAN steps into the same arena, making 
assumptions about ‘future history’ background that will 
be understood and accepted by anyone who has’ visited 
such exotic locations as Niven's RINGWORLD. 


At the start of your mission, you tell the computer your 
name, and enter the name of your ship: 


PLEASE ENTER YOUR NAME? TIM 


NOW THE NAME OF YOUR SHIP? STAR=SEEKER 


Your task is to go boldly where millions of men _ have 
gone before, into the busy sectors of Known Space. You 
start off on Earth (in, of course, the Terran Sector Of 
The Galaxy) and have to ensure your craft and crew stay 
together Long enough to make it through the galaxy, and 
back to earth. 


It seems that, a long time ago (around 2048, on the Old 
Calendar) a particularly benovelent alien race Landed on 
earth, and gave us an enormous, all-wise computer’ to 
help us out. Being essentially lazy, humankind gave more 
and more responsiblity to the computer, until eventually 
it was running everything of importance on the planet. 


There was one thing the benevolent aliens forgot’ to 
mention. As it operated, the computer used up atoms of a 
rare and precious metal called Riemannian. From time to 
time, the supply of Riemannian must be replenished. 
There is Little Riemannian in Known Space, and your task 
is to find some, mine it, and bring it back for the 
computer. 


Your report screen will give you a picture Like the 
following after you've named your ship: 


PEAEEEEEEEEE EEE EEE HEHEHE PEE H HHH HEH ett tt 
YOU ARE IN THE TERRA 

SECTOR OF THE GALAXY 
FEEEEREEEE EEE EEE EEE EE FE HEHE FE HEHEHE HH tte tet tt 
FUEL: 84.25 MONEY RESERVES: 80 
OXYN: 60.5 RIEMANNIAN: O 
PROV: T2 STARDATE: 1 
FEEEEREEE EEE EEE EEE EF E FEF E HEHEHE HEHE EH eet 
EERE EEEE EERE EEE EEE EEE HEHEHE HEHEHE Hees eteettst 
HEEHREREEEEEEEEE HEE SEH HEHEHE tHe te teeteteetite 


YOU'RE APPROACHING A TRADING POST PLANET 
FEREEEEEEEEE EEE EE EE EEE EEE HEHEHE HEHEHE EEE HE tet 


IT IS THE PLANET ASIMOV III 
PEEEEEEEEE EEE EERE EERE EE EEE HEHE EEE HHH 
THE INHABITANTS OF ASIMOV III 

WISH TO BUY RIEMANNIAN, AND WILL SELL 
YOU PROVISIONS, FUEL AND OXYGEN 

FERRER EEEEEEEEEE EEE EE EEE EEE EEE EEE HEHEHE T Et 


As Riemannan is in demand on other planets, you'Ll find 
people everywhere are desperate to buy it. If your 
money reserves run Low, you may well have to sell off 
some of your hard-won metal, just to buy such Luxuries 
as food and oxygen. 


You'LlL discover the game makes very tough demands’ on 
your management abilities. Although finding Riemannian 
and getting it back to earth is the prime purpose of 
your mission, simply surviving quickly becomes your 
highest day to day priority. 


You can trade with ‘trading post planets’ if you Like: 


HEEEHEEEEE EERE EEE EEE EEE HEF HEHEHE HHH Hee e tte 
THE INHABITANTS OF ASIMOV III 

WISH TO BUY RIEMANNIAN, AND WILL SELL 
YOU PROVISIONS, FUEL AND OXYGEN 


FEEEEEEE EEE EEE ES EEE EEE HEF HEHE HEHEHE HE + ttt 
ENTER YOUR CHOICE: 


- TO SELL RIEMANNIAN 
- TO BUY PROVISIONS 
TO BUY FUEL 
- TO BUY OXYGEN 
5 = TO CONTINUE FLIGHT 1 
EEE E EEE EERE EE EERE EEA HEHE HEHEHE EHH Het tte 
YOU HAVE NONE TO SELL! 


HWN — 
6 


PLEASE ENTER NEW CHOICE 
2 


PEEEEREEEE EEE EEE EEE EEE ETE FEF E+E HEHEHE HH 


YOU HAVE 80 CREDITS 


THE TRADERS ARE SELLING PROVISIONS 
AT 13 CREDITS PER UNIT 


HOW MANY UNITS DO YOU WANT TO BUY? 2 
> THE SALE HAS BEEN MADE < 


PEFEEEEEEE EEE EE HEHEHE te eteteteet+eee teeta 
YOU ARE IN THE MIRA 
SECTOR OF THE GALAXY 


FEAR EERE EEA EAE EEE EHH Het ee tgeeteeeetese 


You need to keep your fuel tanks topped up as well: 
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HEEEEEEEE EE EEE EEE HEE HEHEHE HEHEHE Hete tet et st: 

YOU ARE APPROACHING REFUELING ORBITING 
STATION NUMBER 4 

FEEEEEEEE EEE EE SESE HEE HEHEHE EHH EFHe tet ett 

YOUR CURRENT BANKS HOLD 25 

EEE EE EHEEEEE EEE EE HEF HE EHH tHe tte tet eet 


PRESS 1 TO ATTEMPT LANDING 
OR 2 TO CONTINUE FLIGHT 
FOLLOW THE CO-ORDINATE LANDING 
SEQUENCE FOR A SAFE TOUCHDOWN... 
1 - PRESS THE ‘'2'* KEY 
2 - PRESS THE '9! KEY 
3 = PRESS THE '2!' KEY 
4 - PRESS THE '8!' KEY 
5 = PRESS THE '6! KEY 
6 = PRESS THE '6! KEY 
7 - PRESS THE '3! KEY 
8 = PRESS THE '7! KEY 
9 = PRESS THE ‘2! KEY 
10 - PRESS THE '4! KEY 
EEE EEEEEEEHREE EAE EE HERE HEE EE HEH Het te tees 
YOU MANAGED TO COMPLETE THE SEQUENCE... 
YOU ARE NOW CLEARED FOR LANDING... 
HERE ON STATION 4 THE COST 
OF FUEL SUITABLE FOR THE STAR]=SEHEKER 
LS 15: PER UNIT 


FEET EEE EE EEE EEE HEHEHE HHH eetee eerste 


YOU HAVE 228 CREDITS 


HOW MUCH FUEL DO YOU WANT TO BUY? 10 


YOUR TANKS NOW HOLD 35 


AND YOU HAVE 78 CREDITS 


Of course, not everyone in Known Space is necessarily as 
peace-loving and friendly as we are on earth: 


YOUR NAVIGATION COMPUTER SIGNALS THAT 

AN ALIEN CRAFT HAS BEEN SPOTTED 

APPROACHING YOUR SHIP...IT HAS NOT YET 

BEEN ABLE TO IDENTIFY IT. IS IT FRIEND 
OR FOE? 


EEEEEEEEEEEEEEEEEETEEEEEEEEEEE EEE EEE EET 
COMPUTER IDENTIFIES SHIP ORIGINATES IN 
THE KEOIMUMI SYSTEM 


ALLIANCE NOT YET DETERMINED... 
>>> STAND BY <<< 


FEEREEEEEEEEEEEEEHE EEE EE EEE EEE EEE HEHEHE $+ 
THE ALLIANCE OF THE KEOIMUMI IS 


WITH OUR EMPIRE...ALLOW THEM TO BOARD 


FEEREEEEREEE EEE EEE EEE EEE HEHEHE HEHEHE HEH Het 
THE KEOIMUMINS OFFER YOU EITHER 


1 = FUEL 
OR 2 = OXYGEN 


## WHICH ONE DO YOU WANT? ## 
PEEEEEEEEEE EEE EE EEE EEE EEE EEE EEE HEHE HH H+ 
> FUEL IT IS < 


You were lucky thet time! 
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It is important not to forget, in the hurly-burly of day 
to day survival out there in space, that you're Leading 


this mission primarily to get hold of the elusive 
Riemannian: 


PHEEHEERHEERHEEF HEEFT HEHEHE FHF Hee ttetet+t 
YOU ARE IN THE CITA 

SECTOR OF THE GALAXY 
SHEE EEE EEE SE EE EERE HEHEHE HEHHE HEHEHE HH ttt 


FUEL: 93 MONEY RESERVES: 54 
OXYN: 50 RIEMANNIAN: O 
PROV: 67 STARDATE: 4 


EEEEEEEEE EEE EEE EEE EE EEE EEE HEHEHE He eet tet tt 
PEEEEEEEEE EE EEE EEE EEE EE EEE H EHH HH te tet 
YOU LAND THE STAR-SEEKER ON 

THE MINING ASTEROID DRACONIS II 


YOUR ORE DETECTING COMPUTER GENERATES 
TWO NUMBERS, LESS THAN 10. IF YOU CAN 
CORRECTLY PREDICT A FACT ABOUT THE 
THIRD CO-ORDINATE, YOU'LL BE ABLE TO 
MINE FOR THE PRECIOUS RIEMANNIAN 


FEEEEEEEEEEH EEE EE EEE EEFE HEHE HH e+ et tee et 
FIRST TWO CO-ORDINATES ARE 5 AND Q 


ENTER 3RD CO-ORDINATE PREDICTION: 
A =- IS BETWEEN 5 AND 9 
- IS EQUAL TO 5 OR 9 


B 
C = IS GREATER THAN 9 
oe 


THIRD CO-jORDINATE IS 3 


COMPUTER REPORTS YOU ARE UNABLE TO 
MINE FOR RIEMANNIAN ON DRACONIS II 


Failing as a miner is not the only humiliation which 
awaits you: 
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THE STAR=SEEKER IS UNDER ATTACK FROM A 
FLEET OF HERTZSPRUNG SHIPS 

TO DEFEAT THE DREADED HERTZSPRUNG 

YOU HAVE TO CONFUSE THEIR CONTROL 
COMPUTER BY SENDING A CODE SIGNAL 
WHICH THE COMPUTER WILL INTERPRET AS 
MEANING YOU ARE ALSO A HERTZSPRUNG 
SHIP.....STAND BY TO SEE THE CODE.... 
ONCE IT VANISHES FROM YOUR SCREEN, YOU 
MUST SEND IT BACK TO THE ‘HERTZSPRUNGS 


STAND BY... 
THE CODE IS > 694202 


SEND THAT CODE BACK TO CONFUSE THEM 
? 649202 


OH NO...YOU WERE WRONG! 

YOU SIGNALED 649202 AND 

THE CODE WAS 694202 

THE HERTZSPRUNGS ATTACK... 
THETR FIRE HAS HIT OUR SHIELDS 


DRAINING ENERGY FROM OUR RESERVES 


PELE EDEHEEHEEEEEEHEFE FEE EE HEE HEHEHE tee 


Eventually, though, if you manage to make sat Least a few 
correct decisions,, you'LL see our fair planet appear on 
your holographic display. However, if you run out of 
such things as oxygen, fuel or provisions the game will 
end, giving you a report on your competence: 
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PEE EEEEEHE HEHEHE Het r ge geggtgeegeteeteggatat 
YOU ARE NOW IN PLEIDES 

ON YOUR WAY HOME 

FREE EEEE PEE EEE HEHEHE HEHE Ete eeteeeteeteeese 


FUELS. 25:25 MONEY RESERVES: 22 
OXYN: O RIEMANNIAN: 12.25 
PROV: 32 STARDATE: 18 


FEEEEEE EEE HEHE EEE EEE EHH EHH Eteettteeetesese 
ALL OXYGEN TANKS EXHAUSTED 


NOW WE WILL SEE HOW WELL YOU DID ON 
THAT TRIP! 
YOU MANAGED TO MINE 12.25 TONS 

OF RIEMANNIAN 


YOUR RATING, CAPTAIN TIM, 
FOR THIS RUN IN THE STAR=SEEKER IS: 


RATING AFTER FACTOR 1 IS 0 
RATING AFTER FACTOR 2 IS 76 
RATING AFTER FACTOR 3 IS 208 
RATING AFTER FACTOR 4 IS 881 
RATING AFTER FACTOR 5 IS 881 


RATING AFTER FACTOR 6 IS 1882 


PEREEREEREEEEEEE EERE EE HEHEHE HHH tetteeetetet 
YOUR FINAL RATING IS 1945 


FREER ES HEE HEE HEF HEHEHE HEHEHE tte tee tee 


The game is reasonably complicated, but you'll find 
you'll be able to play it without too much trouble 
because the computer only presents you with one major 
problem at atime, and (so long as you keep an eye on 
your oxygen and other vital supplies) you will only have 
to deal with that single problem before being brought 
face to face with another one. 
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Because certain regions of Known Space have not’ been 
accurately mapped, I've taken on the responsibility of 
naming many sectors, planets and alien races. Most of 
the names used in this simulation come from real people 
who are, or have been, connected with research into 
space. 


For example, the metal Riemannian is named after the 
mathematician Bernhard Riemann, who has devised a 
geometry which deals with the complexities of space 
which can not be described in the standard, three-— 
dimensional Euclidean manner. This geometry, called 
Riemannian Geometry, is fiendishly complex, but quite 
happily describes such things as the KLein bottle (which 
has only one surface, with the outside and the inside 
being the same!) and the effects of gravitation as one 
body approaches another. 


One of our alien races is called the Herzsprung, named 
after the Swedish astronomer Ejnar Hertzsprung who with 
American astronomer Henry Norris Russell discovered in 
1914 a way to determine the distance of stars from earth 
by examining their brightness, and spectral class. 
Another race, the Lallemand, is named after French 
astronomer Andre Lallemand who worked out the_ theory 
which made it possible to take electron photographs 
(rather than Light photographs) of dim, distant stars, 
using a device called the electronographic camera. 


The space sectors names follow earth names for stars and 
constellations, although I've moved them around a bit. 
The trading post planets represent a glittering group of 
individuals: 


ASIMOV III - Named, of course, after the good 
doctor himself 


GALILEO IV — I'm sure you know who he is 
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BARNARD'S REST - Presumably, this pLanet orbits 
Barnard's star, the closest star to earth (1.8 parsecs, 
or 5.9 Light years away) discovered in 1916 by American 
astronomer Edward Emerson Barnard. The dim red star is 
considered Likely to have a planetary system 


PRAESEPE —- A group of stars, in the constellation 
of Cancer 


I'LL leave it up to you to find out how the other 
trading post planets were named. 


19 REM QUEST FOR RIEMANNIAN 

24 GOSUB 5399: REM INITIALISE 

38 OX=0xX-3.5! IFOX< 1 THENOX=9 

44 FU=FU-4.75!: IFFUS 1 THENFU=9 

5@ PR=PR-2. 45: IFPR< 1 THENPR=9 

68 TE=TE+1 

78 PL=PL+1 

88 GOSUB299: REM PRINTOUT 

99 IFOX<1@ANDOX>STHENPRINT"{LT RED}*¥X<{WH 
T} OXYGEN LEVEL NEEDS ATTENTION{(LT RED} 
HX" 

198 IFOX=@THENPRINT"{WHT}ALL OXYGEN TANK 
S EXHAUSTED": GOTO43¢ 

116 IFPL=24THENPRINT"{WHT} YOU HAVE ARRIV 
ED SAFELY BACK ON EARTH": GOTO43¢ 

126 IFPR<1SANDPR>STHENPRINT"{LT RED}@@ ¢ 
WHT}SUPPLIES MUST BE SUPPLEMENTED{LT RED 
+ @e@" 7 

139 IFPR=@THENPRINT"{WHT}YOU HAVE RUN OU 
T OF PROVISIONS": GOTO43¢g 

14@ IFFU< 1S9ANDFUSS@THENPRINT"{WHT}>> WARN 
ING - FUEL IS LOW <<" 

i15@ IFFU=@THENPRINT"{WHT}YOUR FUEL HAS B 


EEN EXHUASTED" : GOTO439 
160 PRINT"LCYNFFEEEEEE EEE EE EEE HEHEHE tee ett 


FEEHEHEHE + Hee eet” 
179 IFRND(1)>.5THEN23¢9 
189 IFRND(1) >.82THENGOSUB79@G: REM HOSTILE 


ALIENS 
199 IFRND(1)>.6THENGOSUB135S@4: REM RIEMANN 


IAN RESERVES 
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299 IFRND(1)>.7THENGOSUBI989@:REM REFUEL 

STATION 

219 IFRND(1)>.6THENGOSUB2529: REM FRIENDL 

Y ALIENS 

226 IFRND(1)>.97THENGOSUB2999:REM BLACK 

HOLE 

238 IFRND(1)>.6THENGOSUB3329: REM TRADIN 

G POST 

248 IFRND(1)>.9THENGOSUB4S279:REM MEETING 
WITH LEGENDARY ’SPACE ARK’ 

2598 IFRND(1)>.851THENGOSUB4G85@4: REM SPACE 
ATTACK 

268 GOSUBS729 

276 GOTO39G 

PEG REM KKK KH HHH HHH HHH IIH 

29@ REM PRINT OUT 

398 PRINT" {CLR}" 

319 LS="" 

329 PRINT 

33GB PRINT"CLCYNFFHEHEEE EE EEEEEE FETE +H ++ E+ 
HEEHEEHEHEE EH HHH" 

349 IFPL<1i3THENPRINT"{YEL}YOU ARE IN THE 
"!AS(PL) :PRINTTAB(S) 3 "SECTOR OF THE GAL 

AXxY" 

35@ IFPL>12THENPRINT"{YEL}YOU ARE NOW IN 


"SAS(25-PL):PRINT"ON YOUR WAY HOME" 
368 PRINT" {I CYNFFEEEE EE HEEEPE EE HE +H ete ttt 


F+tetetteeteett+e" 

376 PRINT" {COR}FUEL: {WHT} "FU, "{OR}MONEY R 
ESERVES: (WHT 3 "WE 

388 PRINT"{OR}JOXYN: (WHT "OX, "COR RIEMANN 
IAN: (WHT 3 "RI 

399 PRINT" {OR SPROV: (WHT "INT(PR) , "{OR3ST 
ARDATE: (WHT? "TE 

490 PRINT" {CYNFF+tetteeeeeteetetreeeteete ttt 
Fttetteettett+ette+” 

419 RETURN 

42G REM KKXHHKHKKKKEKKKE 

436 REM END OF QUEST 

449 IFPL=24THENPRINT"CYEL}WELL DONE!!!" 
450 PRINT: PRINT" {GRN3NOW WE WILL SEE HOW 


WELL YOU DID ON" 
469 PRINT"THAT TRIP! {PUR}" 
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479 PRINT" YOU MANAGED TO MINE”"RI"TONS":P 
RINTTAB(7)5 "QF RIEMANNIAN" 

489 IFRI=O@THENPRINT" YOU FAILED IN YOUR P 
RIME OBJECTIVE" 

485 IFRI=STHENPRINT"WHICH WAS TO MINE RI 
EMANNIAN" 

499 GOSUBS726 

266 PRINT"L{YEL3 YOUR RATING, CAPTAIN "SNS 


51g PRINT"FOR THIS RUN IN THE "3;S%5" IS: 
229 PRINT 

339 X=6:PQ=9G 

549 GOSUB669 

5358 PRQ=PQ+3XFU: GOSUB6469 

2769 PQ=PQ+t+4*¥PR: GOSUB669 

3768 PQ=PQ+tSS5*#RI: GOSUB669 

386 PQ=PQ+12*0XK: GOSUB669 

3°99 PQ=PQ+t+45.5x*WE: GOSUB669 

6699 PQ=PQ-2KXHAtGERS+SHXFA-2¥SA+3.4%TP 


619 PRINT: PRINT 
628 PRINT"C{CYNF Ft teeter tee tteeeeteteteetetett 


$Htttttetttetet+" 

639 PRINT" {YEL}YOUR FINAL RATING IS"INT ¢ 
PQ) 

64G PRINT"ILCYNF FHF HHe ttt e tet e eet eeetetese 
Ht te eet ttetteet+" 

6590 END 

6690 X=Xt1LLPRINT"CWHTFRATING AFTER FACTOR 
"X" IS" INT (PQ) 

678 GOSUBS729 

6389 RETURN 

OPH REM KKEKKKKKKKKKKKE 


766 REM HOSTILE ALIENS 
718 HA=HA+1: IFHA>2THENRETURN 


729 RS="SAURONIAN" 

738 Y=INT (RND(1)¥8) 

7498 ITFY=1THENRS="HARADRIM" 

72958 IFY=2THENRS="NEBULIAN" 

768 IFY=3THENRS="SPROUL" 

278 IFY=4THENRS="ARECIBO" 

788 IFY=STHENRS="HERTZSPRUNG" 
798 IFY=6THENRS="LALLEMAND" 
S890 IFY=7THENRS="COUNTERMIXIAN" 
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S106 PRINT"{GRN3THE "53S%5" IS UNDER ATTAC 


K FROM A" 

S26 PRINT"FLEET OF "3;R%3" SHIPS" 

839 GOSUBS729 

S49 CO=INT ( (RND(1) #199900) *¥199+(RND(1)¥19 
@)) 

3598 PRINT: PRINT"{PURSTO DEFEAT THE DREAD 
ED ";R% : 

S69 PRINT" YOU HAVE TO CONFUSE THEIR CONT 
ROL" 

S708 PRINT"COMPUTER BY SENDING A CODE SIG 
NAL " 


S898 PRINT"WHICH THE COMPUTER WILL INTERP 


RET AS" 


396 PRINT"MEANING YOU ARE ALSO A 
999 PRINT"SHIP..... 
OD " 


"SRD 
STAND BY TO SEE THE C 


919 PRINT”"ONCE IT VANISHES FROM YOUR SCR 


EEN, 


2260 PRINT"MUST SEND IT.BACK TQ THE 


mS" 


YOu" 
"SRS5 


P30 PRINTS PRINT"STAND BY..." 
949 FORT=1TO1466+RND (1) *4969 
P59 NEXT T 

9660 PRINT"THE CODE I157"CO 
976 FORT=1TOSG@G: NEXT T 

73890 PRINT" {CLRi" 

999 GETAS: IFAS< 2" " THENS9S 


1966 
1G1G 


PRINT: PRINT 
PRINT"SEND THAT CODE BACK TO CONFUS 


E THEM" 


1926 
1939 
1G46 


19G5¢G 
196G 


1972 
19898 
19°96 
1199 


11G 
129g 


11390 
URED 


INPUTQ 

GOSUBS726 

PRINT: PRINT 

IFQ=COTHEN1L 239 

PRINT"OH NO...YOQU WERE WRONG! " 


PRINT" YOU SIGNALED"@G" AND" 
PRINT" THE CODE WAS"CO 


GOSUBS729 
PRINT: PRINT 


PRINT" THE "SR®3"S ATTACK..." 
GOSUBS726 


IFRND(1)>.STHENPRINT" THEY HAVE RUPT 
AN OXYGEN TANK! "3 OX=INT (3%#0K/4) °:GOT 
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1146 


1159 
1169 


1176 
1189 


1196 


Q=INT (RND(1)*3) 
IFQ=9THENYS="SHIELDS" 
IFQ=1THENYS#="HULL" 
IFQ=2THENYS="ENGINES" 

PRINT" THEIR FIRE HAS HIT OUR "3 YS 
PRINT: PRINT"DRAINING ENERGY FROM OU 


R RESERVES" 


1269 FU=INT (3¥FU/4) 

12190 GOSUBS7296 

1226 RETURN 

1236 PRINT:PRINT"{WHT} YOU HAVE BEEN SUCC 
ESSEUL... 

12499 PRINTTAB(8)3;"IN REPELLING THEIR ATT 
ACK" 

1258 PRINT: PRINT"THE ";R3" ARE LEAVING 

BS | a 

12698 PRINT"SPACE SECTOR AROUND THE "3S 

1276 GOSUBS?726 

1286 PRINT"CONGRADULATIONS, CAPTAIN "5N% 
1299 GOSUBS?726 

1396 PRINTTAB(8)3; "CONTINUING WITH FLIGHT 
1319 GOSUBS5729 

1326 RETURN 

1339 RETURN 

L134GD REM HEKKKKKKKKKKKRKKKKEE 

1356 REM RIEMANNIAN RESERVES 

1360 Q=INT (RND(1)*5) 

13790 IFQ=6THENYS="TAU ITI" 

1388 IFQ=1THENYS="ERIDANI IV" 

1399 IFQ=2THENYS="DRACONIS II" 

1999 IFQ=3THENYS="HERMU II" 

19419 IFG=4THENYS="HYDRI VIX" 

1926 PRINT"YOU LAND THE "53;S%3;" ON" 

19439 PRINT"THE MINING ASTEROID "3YS 

14499 GOSUBS7296 

1456 PRINT: PRINT 

14690 PRINT" {QR} YOUR ORE DETECTING COMPUT 


ER GENERATES" 


1476 


YOu 
1489 


PRINT"TWO NUMBERS, LESS THAN 198. IF 


CAN" 
PRINT"CORRECTLY PREDICT A FACT ABOU 


T THE" 
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194999 
ABLE 
1596 


TAN" 
15196 


13526 


PRINT"THIRD CO-ORDINATE, 
To" 
PRINT"MINE FOR THE PRECIOUS RIEMANN 


YOU’"’LL BE 


GOSUBS7265 
PRINT"{CYNF +t 4 tteteteetteeteeeetet+et+ 


FHtttetetteetetet+" 


135396 
1549 
155d 
1569 
1576 


QLI=INT(RND(1)#9) +1 
Q2=INT(CRND(1) #9) +1 

IFQ2¢=Q1THENI1S539 

Q3=INT(CRND(1)%#9?) +1 

PRINT"FIRST TWO CO-ORDINATES ARE"@Q1 


"AND"Q2 


1539 
1599 


GOSUBS726 
PRINT: PRINT"{ WHT? ENTER SRD CO-ORDIN 


ATE PREDICTION: " 


16940 PRINTTAB(3)5"A @ IS BETWEEN"G@G1 "AND" 
Q2 

16190 PRINTTAB(3)5"B @ IS EQUAL TO"Q1"0R" 
Q2 

1629 PRINTTAB(3)3"C @ IS GREATER THEN"Q2 
1630 INPUTTS 

1649 IFTS<"A"GRTS>"C" THEN14639 

1659 PRINTTAB(6)3; "THIRD CO-OGRDINATE I5"Q 
3 

16698 IFTS="A"ANDAQS SQLANDQS< Q2THENI 749 
1679 IFTS="B"AND (Q3=Q10RQ3=Q2) THENIL?49 
1689 IFTS="C"ANDQS3>Q2THEN1749 

1699 GOSUBS?729 

1799 PRINT: PRINT"COMPUTER REPORTS YOU AR 
E UNABLE TO" 

1716 PRINT*’MINE FOR RIEMANNIAN ON "5 1% 
17296 GOSUBS729 

17390 RETURN 

1749 PRINT: PRINT"COMPUTER REPORTS YOU AR 
E NOW ABLE" 

17598 PRINT"TO MINE FOR RIEMANNIAN ON "3% 
= 2) 

1768 GOSUBS72965 

17708 PRINT"THE SPEED WITH WHICH YOU HIT 
THE" 

1789 PRINT" INDICATED LETTER WILL DETERMI 
NE HOW" 

17996 PRINT"MUCH RIEMANNIAN YOU CAN MINE" 
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189690 FORT=1TO49690+RND (1) *4990 

1816 NEXT T 

18298 M=INT (RND(1)*¥26) +65: MS=CHRS (M) 

1830 GETAS: IFAS< >" "THEN1S32 

184@ PRINT: PRINT 

18590 TX=9 

18696 PRINTTAB(8)5"{LT GRNSHIT THE ’"3MS;5 
"? KEY" 

1870 TX=TX+t1 

18890 GETPS 

18990 IFPS< >MSTHENLEZS 

199G TX=(4090-TX) /20: IF TX< 1 THENTX=. 25 
1919@ PRINT:PRINT"YOU HAVE MINED"TX"TONS” 
1926 GOSUBS?726 

1936 PRINT: PRINT"NOW WE’LL RETURN TO QUR 
FLIGHT..." 

1949 RI=RI+TX 

19359 GOSUBS729 

196G@ RETURN 

197G REM KHKKEKKKEKKKKKKE 

19°86 REM REFUEL STATION 

1999 RS=RSt+1 

2OGHD PRINT"{CYNFFF¢tteetettteetttttetetttett 
Settee tettteeettte" 

2616 PRINT" {YEL} YOU ARE APPROACHING REFU 

ELING ORBITING" 

2929 PRINTTAB(11)3 "STATION NUMBER"RS 

POSH PRINT"{LCYN}FHHH Ett tee tete tte ttetett+t 
$ttttetet+tte+etettse”" 

2940 PRINT" {OR}YOUR CURRENT BANKS HOLD{W 

HT3 "FU 

2650 GETAS: IFAS< >" "THEN2ZOSD 

2PG6G PRINT"CCYNFFttettettttetettetettett 
FHEtteteeteteetee” 

2978 GOSUBS726 

“986 PRINT" {PUR}PRESS 1 TO ATTEMPT LANDI 

NG" 

£999 PRINT" OR 2 TO CONTINUE FLIGHT" 
21G6 GETTS 

2119 IFTS< > "1"ANDTS< > "2" THENZ1 906 

21206 IFTS="2" THENRETURN 

2130 PRINT"FOLLOW THE CO-ORDINATE LANDIN 


G" 
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2149 
21598 
2169 
2176 
218¢ 
219° 
2288 
2216 


2226 
2236 


22490 
2259 


2268 


PRINT"SEQUENCE FOR A SAFE TOUCHDOWN 


GOSUBS72G¢ 

J=1 
GETAS: IFAS< >" "THEN2Z17¢9 
KS=STRSCINT (RND(1)#9) +1) 
KS=RIGHTS (KS, 1? 

TR=G 
PRINTI"- 
PRINT 
GETTS 
TR=TRt+1 
REM 
IFTRSLISGTHENPRINT"YOU 


PRESS 7"3K#3"" KEY" 


TOOK TOO LONG 


1": GOSUBS729 2 RETURN 


22768 
2239 


IFTS=""THEN2239 


IF TS< >KSTHENPRINTTS5 " IS WRONG": GOS 


UBS726: RETURN 


29S 
2555 


IFI< 1S THENIJ=J+1:GO0TO218¢ 
PRINT"{CYNF +++ t¢¢t¢e¢et¢etettet+eeteet 


HHt$teeeteteteetete”" 


2316 


PRINT" {YEL3YQU MANAGED TO COMPLETE 


THE SEQUENCE..." 


2326 


PRINT" YQU ARE NOW CLEARED FOR LANDI 


NG. ao a 44 


2336 
2349965 
233596 
2366 
2376 
2339 


GOSUBS726 

CO=13+INT (RND(1) #8) 

PRINT"HERE ON STATION"RS"THE COST" 
PRINT"OF FUEL SUITABLE FOR THE "35% 
PRINTTAB(9)5"IS"CO"PER UNIT” 

PRINT" IL CYN}F Fete teteeettetetteetteete+teeeetett 


tettetetttetetete" 


2396 
2498 


PRINT" {PUR} YOU HAVE"WE"CREDITS" 
IFWE<COTHENPRINT"SO YOU CAN’T EVEN 


AFFORD ONE UNIT": GOSUBS729:RETURN 


24916 


PRINT: PRINT"HOW MUCH FUEL DO YOU WA 


NT TO BUY" 


2926 
2493G 


INPUTNE 
IFNE#COSWETHENPRINT" YOU DON’T HAVE 


SUFFICIENT CREDITS": GOTO24919 


24942 
2456 
2469 
247h 


FU=FUt+NE 

WE=WE-COXNE 

GOSUBS?726 

PRINTS PRINT" YOUR TANKS NOW HOLD"FU 
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29890 PRINT: PRINT"AND YOU HAVE"WE"CREDITS 
2499 GOSUBS726 

2090986 RETURN 

ZILGD REM HKKKKKKHKKKHKKKH 

29296 REM FRIENDLY ALIENS 

2539 FA=FAt1: IFFA>SSTHENRETURN 

254G PRINT"CKCYNFFHHttete tet ete etetetetets 
$tt¢tteteteeteeeee 

2598 M=INT(RND(1) #7) 

2566 IFM=OTHENYS#="HE’ IDANI" 

25790 IFM=1THENYS="BETA LEPOIIS" 

23898 IFM=2THENYS="GAMRA GARMA" 

259990 IFM=3THENYS="KEOIMUMI" 

2696 ITFM=4THENYS="DRACONMH"” 

261906 IFM=STHENYS="TUU EPSONI" 

2626 IFM=6THENYS$S="YYDRONICA" 

2638 PRINT"{LT GRN}YOUR NAVIGATION COMPU 
TER SIGNALS THAT" 

2699 PRINT"AN ALIEN CRAFT HAS BEEN SPOTT 

ED" 

26560 PRINT"APPROACHING YOUR SHIP...IT HA 

S NOT YET" 

2669 PRINT"BEEN ABLE TO IDENTIFY IT. IS 
IT FRIEND" 

26798 PRINTTAB(13);"QR FOE?" 

2689 GOSUBS726 

2Z69D PRINT"{CYNFFFEFHEHHEHE FEE E FHT HEHE HEHE tHe tt 
HHetetetteeteteee" 

2766 PRINT" {GRN}COMPUTER IDENTIFIES SHIP 
ORINATES IN" 

27106 PRINTTAB(S) $s "THE "s3;Y#3 " SYSTEN"” 
2729 GOSUBS?729 

2730 PRINT"ALLIANCE NOT YET DETERMINED... 
27499 PRINTTAB(S) 3s "{WHT3>>> STAND BY <<<" 
27356 GOSUBS726 

2768 PRINT"{CYNFFFtttttttetteetettet++ettt 
Htttetetettetetet" 

27708 PRINT" {YEL}? THE ALLIANCE OF THE "5;YS 
. 

2/88 GOSUBS72¢G 


279R 


IFRND(1)>.4THEN2959 
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2899 PRINT"WITH QUR EMPIRE....ALLGW THEM 
TO BOARD" 

28198 GOSUBS72¢9 

P82G PRINT"KCYNIFTHE HEHEHE HEHEHE HEHE tet ettttt 


Htttetetetttetttt+" 


2839 PRINT"{LT RED} THE "3;Y#%3; "NS OFFER YO 

U EITHER" 

2340 PRINTTAB(9)3 "1 - FUEL" 

2850 PRINTTAB(6);"OQR 2 - OXYGEN" 

2860 GETAS: IFAS< >" "THEN2869 

23870 PRINTTAB(6) 5 "{OR}#HCWHTs WHICH ONE 

DO YOU WANT?{COR} #HHACLT BLU" 

2880 GETTS 

239H0 IFTS<C > "1L"ANDTS< > "° 2" THENZ SSS 

29GG PRINT" CCYNF +t+tetttteeteetete+etet+t+tt++tt 
$eeeteteetettteetet”" 

2910 ITFTSB="1"THENPRINTTAB(12)5 "> FUEL IT 
Is! <"FU=FUtFtINT (RND(1)#296)+19 

29280 IFTS="2"THENPRINTTAB(12)5 "> OXYGEN 
IT IS! <"O0X%X=OX+t+ INT (RND (1) #39) +2 

2°30 GOSUBS726 

29490 RETURN 

2958 PRINT" AGAINST THE EMPIRE...FLEE!!" 

2969 LS=YS 

29°76 GOTOS229 

29838G REM KHKEKKKKKKE 

2°90 REM BLACK HOLE 

390600 FORIJ=1TO12 


3816 
3926 
SIGS 
3848 
3956 


3GOG 
SAAD 


S3G8Bh 
SIOD 
3196 
ED" 

31190 


3126 
3130 
3146 
2158 


PRINTTAB(J)35 "> DANGER! ! 
FORT=i1TO296:NEXT T 
PRINTTAB(13-J)5 "> DANGER! ! 
FORT=1TO2966:° NEXT T 

NEXT J 


GOSUBS726 
PRINT" {CLR3" 


GOSUBS7296 
PRINT: PRINT 


PRINT" (WHT } THE 


cu 


<t 


"3$S%$5" IS BEING SUCK 
PRINTTAB(9)3; "INTO A BLACK HOLE!" 
GOSUBS729 

PRINT" {CLR}" 

GOSUBS726 


FORK=1TO? 
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3160 
J17PG 


3189 
3199 
3208 
32169 
3226 


3236 
3248 


FORJ=1TOQ19 
PRINTTAB(J+2¥K) 3; "{OR}DRAGGING US IN 


NEXT J 

NEXTK 

PRINT" {CLR}" 

GOSUBS?7 24 

FORJ=1TOS 

FORK=1T0OS 

PRINTTAB(J); "ALL COMMUNICATIONS HAV 


E STOPPED!" 


3256 


32668 
3278 


3d 
3855 
3309 


3316 


3326 
3338 
334¢ 
33508 


NEXTK 
NEXT J 
GOSUBS729 


PRINT" {CLR3”" 
GOSUBS5726 


END 

REM XXKKKKKHKKHE 

REM TRADING POST 

TP=TP+1 

IFTP>1L5THENTP=15 

PRINT" CYNE FHEHEEEEE HEHEHE EEE HEHEHE HEHE Het 


$$tetettteteeetet" 


53668 


DING 
337h 


PRINT"{YEL3 YOU’ RE APPROACHING A TRA 
POST PLANET" 
PRINT "ICYNMFFEEEHEHE EEE HEHEHE HE tHe te tee est 


$Hteeetteetttetete" 


3388 
339R 
5 

S496 
34985 
3416 


GOSUBS729¢ 

PRINT" {GRNSIT IS THE PLANET "5 X%S(TP 
IFTP=1S5THENPRINTRND(1)#6+1 

IFTP< >LSTHENPRINT 
PRINT"{CYN}FHFEHE EEE FH HEHE Ee tee te etett 


$H$ettetteeteeteetet”" 


3426 PRINT"{LT GRN}THE INHABITANTS OF "3; 
XS (TP) 

53436 PRINT"WISH TO BUY RIEMANNIAN, AND W 
ILL SELL” 

35449 PRINT" YOU PROVISIONS, FUEL AND OXYG 
BaSo PRINT"£CYNF tHe ttt eteeteteetetetetet 


HEHEHE E HEHEHE Hee tet et 


3465 


GOSUBS720 
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34790 GETAS: IFAS< >" " THENS476 
5489 PRINT" CWHTSENTER YOUR CHOICE: ":; PRIN 


= 

3499 PRINTTAB(S)3"(OR}1 @ TO SELL RIEMAN 

NIAN" 

3598 PRINTTAB(S5);"2 

351@ PRINTTAB(5)3"3 

3528 PRINTTAB(5)3"4 

3539 PRINTTAB(5)3"5 

3549 GETTS 

3550 IFTS<"1"ORT#S>"5"THENS54¢ 

356@ IFTS<>"1"THENPRINT"{CLR}" 

35798 IFT$="5" THENRETURN 

S58OG PRINT"ILCYNF +t tetetttettetetetetet+r+ett 
H$tetetettetetettet" 

3599 IFTS="2"THENSS19 

3699 IFTS="3"THENS96@ 

36198 IFTS="4"THENG119 

3628 IFTS="1"THEN3S649 

36398 GOTOS549 

3649 IFRI<iITHENPRINT" {WHT} YOU HAVE NONE 

TO SELL'!":GOSUB572¢ 

3645 IFRI<1THENPRINTTAB(5)3 "PLEASE ENTER 
NEW CHOICE": GOTO3542 

3659 PRINT: PRINT"{PUR} YOU HAVE"RI"RIEMAN 
NIAN" 

3669 PRINT"{LT GRN}HOW MANY TON DO YoU W 
ANT TO SELL" 

3679 INPUTSE 

3689 IFSE>RITHENS679 

3699 PR=59+INT(RND(1)¥59) 

379@ PRINT"{OR} THE TRADER OFFERS"PR"PER 
TON” 

3719 PRINT"{WHT}DO YOU ACCEPT THIS (Y OR 
N)” 

3728 INPUTUS: IFUS< >"Y"ANDUS< > "N" THENS 729 
373@ IFUS="Y¥"THENS769 

374@ IFUS="N"ANDRND (1) >. 7THENPR=PRtINT(R 
ND(1)¥6)+3:PRINT"THEY NOW OFFER"PR: GOTOS 
Fi 

3758 PRINT"THEY DON’T WANT TO HAGGLE":GO 
SUB572@: RETURN 

3768 PRINT"IT’S-A DEAL!" 


TO BUY PROVISIONS" 
TO BUY FUEL" 

TQ BUY OXYGEN" 

TO CONTINUE FLIGHT 


fm fe mM 


35 


3776 
3789 


3/79D 
3899 


3816 


38265 
3830 


3846 


GOSUBS729 

WE=WE+SEXPR 

RI=RI-SE 

RETURN 

REM ** BUY PROVISIONS ** 

PRINT" {COR} YOU HAVE"WE"CREDITS" 
Y=INT (RND(1)*¥9) +6 

PRINTS PRINT" {YEL?THE TRADERS ARE SE 


LLING PROVISIONS" 


3830 
3369 


PRINT"AT"Y"CREDITS PER UNIT" 
IFY?WETHENPRINT"SO YOU CANNOT AFFOR 


D A SINGLE UNIT": GOTO3469 


338768 


PRINT: PRINT"HOW AMNY UNITS DO YOU W 


ANT TO BUY" 


5838q 
3896 


INPUTAM 
IFAM=9THEN34649 


3988 IFAM*XY >WETHENPRINT" YOU CANNOT AFFOR 
D"AM: GOSUBS729: GOTO3889 
S?19G PRINTTAB(S)5"> THE SALE HAS BEEN MA 


DE <<" 

39°28 GOSUBS726 

S939G WE=WE-Y*AM 

3749 PR=PR+AM 

39590 RETURN 

3°69 REM **% BUY FUEL ** 

3978 PRINT" CWHT YOU HAVE"WE"CREDITS" 

S989 Y=INT(RND(1)*8) +16 

3799 PRINT: PRINT"{YEL} THE TRADERS ARE SE 

LLING FUEL" 

49659 PRINT"AT"Y"CREDITS PER UNIT" 

49196 IFY>WETHENPRINT"SO THE PRICE IS TOO 
HIGH FOR YOU": GOTO3469 

4926 PRINT:PRINT"{LT REDSHOW MANY UNITS 

DO YOU WANT TO BUY" 

49390 INPUTAM 

4999 IFAM=O8THEN346¢9 


49360 


IFAM*XY >WETHENPRINT"{WHT3 YOU CANNOT 


AFFORD"AM: GOSUBS726: GOTO4939 


4969 
Ss om 
49576 


49639 
4598 


41969 


PRINTTAB(5)3"> THE FUEL IS NOW YOUR 


GOSUBS72G6 
WE=WE-YX*AM 
FU=FU+AM 
RETURN 
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94119 


4129 
49132 
4149 


REM ** BUY OXYGEN ** 


PRINT" <WHT}YOU HAVE"WE"CREDITS" 


Y=INT (RND(1)#6)+25 
PRINTS PRINT" {CYEL?THE TRADERS ARE SE 


LLING OXYGEN" 


413596 


41669 
IGHT 


41769 


PRINT"AT"Y"CREDITS PER TANK" 

IFY >WETHENPRINT"SO YOU CANNOT BUY R 
NOW"L: GOTO3469 

PRINT: PRINT" {OR}HOW MANY TANKS DO ¥Y 


OU WANT TO BUY" 


4189 
419¢ 


4206 


INPUTAM 
IFAM=GTHEN3S4696 


IFAM*Y >WETHENPRINT" {WHT} YOU CANNOT 


AFFORD"AM: GOSUBS720: GOTO4186 


49216 


EXO- 


4220 
9236 
A246 
4256 
4260 
4276 
4289 


4296 
A3go 


PRINTTAB(3)"> OXYGEN IS NOW IN YOUR 
WEBS <¢" 

GOSUBS7296 

WE=WE-Y*AM 

OxX=Ox%+AM 

RETURN 

REM KKEKEHHKKKKKKHKKKEKEKKKKKKKKE 

REM MEETING WITH ’SPACE ARK’ 
SA=SAt1;:IFSA>1THENRETURN 

FORJ=1TOS 

PRINTTAB(CJI#3)5 "STAND...":GOSUBS726: 


PRINTTAB(J#3+5)5"...BY" 


43196 


4329 
4339 


4349 


GOSUBS?726 

NEXT J 

PRINT: PRINT 

PRINT"{LT GRNZIT SEEMS IMPOSSIBLE T 


O BELIEVE BUT YOUR" 


4350 PRINT"CENTRAL COMPUTER SAYS THAT AN 
OBJECT" 

4366 PRINT"RESEMBLING THE LEGENDARY ’SPA 

CE ARK’ OF" 

$3708 PRINT"LONG, LONG AGO, IN A GALAXY F 

AR AWAY" 

938OG PRINT"{CYNF+FF tHe tet tee tetteeteee+ett 


F¢ttetetetettteteete” 


4398 
44960 
4416 


ON... 


PRINT" {YELSCOMPUTER TO CAPTAIN "NS 
GOSUBS726 
PRINTTAB(8) 3; "CHECKING IDENTIFICATI 
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4420 PRINT"{CYNF ++ tte ttetet tee teteterertetettt+e 
HEtHE+ H+ H+ Ht ttt +e++e” 

44306 GOSUBS?72¢ 

44496 PRINT" {PUR} INDENTIFICATION CONFIRME 
D. CRAFT IS THE" 

44359 PRINT"NASMYTH FOCUS, WHICH VANISHED 
2668 YEARS" 

449690 PRINT"AGO IN WHAT BECAME KNOWN AS T 
HE" 

4470 PRINT"FIRST TEMPORAL DISPLACEMENT... 


$4989 GOSUBS729 

4498 PRINT" CCYNF +t Ft ttettteteteteetteteeerttt 
Steet etee tte tetee" 

45990 PRINT"{GRNIJWARNING...."3:GOSUBS726: 
PRINT"WARNING...." 

435190 GOSUBS72¢9 

45260 PRINT"THE NASMYTH LATER BECAME KNOW 


AS 
4593 PRINT "SPACE ARK. IT IS SUPPOSED TO 
APPEAR TO" 
45499 PRINT"SHIPS JUST BEFORE DISASTER IS 
DUE TO" 
45598 PRINT"STRIKE THEM....": GOSUBS729 
4560 PRINT"ICYNF tet tttttetettetttttettrtrte ttt 
HHttttetteteteeteese 
4576 PRINT" {LT RED} THE TEMPORAL FLUX ARO 
UND THE NASMYTH IS" 
45890 PRINT"AFFECTING THE FORCE WARP HOLD 
ING OUR" 
4596 PRINT"EXHOLD OXYGEN WEB...." 
4464990 GOSUBS?/?29 
4619 PRINT"{CYNF Fee tee eeteteetttetettettettett 
HHtetHeeetttetetetteet" 
4629 N= 
4638 GETAS: IFAS< >" "THENF639 
4649 PRINT" {PUR}PRESS THE ’J’ KEY ON YOU 
R CONTROLS" 
4656 PRINT"TO ESCAPE THE TEMPORTIAL FLUx. 


4660 GETPS 

4464790 N=Nt+1 

46890 IFPS="J" THENS?77G 
44°90 IFN PPTHENS669 
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$768 PRINT" YOU TOOK TOGO LONG....” 


4710 
4726 


GOSUBS726 
PRINT" CYNF FHF 444444 ¢4¢¢¢¢t¢¢¢¢¢¢ 444+ 


H$teteteeteeteeetet" 


4730 
OC?” 
4746 


4759 
4766 


47768 


PRINT"{YEL} THE FLUX HAS CAUGHT OUR 
WEB!" 

GOSUBS726 

OXK=INT (3% (OX/4) ) 

RETURN 


PRINT: PRINT"WELL DONE! YOUR REFLEXE 


S ARE” 


4736 


4796 
4809 


PRINT"EXCELLENT, 


GOSUBS7296 
PRINT"CCYNF ttt te tttetettetetetetetee tet 


CAPTAIN “SNS 


S$tetetettett+etett" 


4319 
UR 
43826 
4334 
4349 
43354 
4369 


4876 
43830 


PRINT"{WHTSWE CAN NOW CONTINUE ON O 


FLIGHT..." 


GOSUBS726 

RETURN 

REM KEKKKKKKKHKKEK 

REM SPACE ATTACK 

AT=AT+1: IFRND(1)<AT/7ZTHENRETURN 


IFAT > 3THENRETURN 
PRINT"{CYNF ttt eteteetteetetteeteteetet 


Regt Hee eee tet t ++ (GRN}" 


9S 


4999 
49°16 


PRINT"LKIS 8997843": GOSUB5729 
PRINT"CAGTHIN "5NS5", TIER” *“S”" 
PRINT"SOM*¥THIN%® WROSG #ITH QU SYST 


FPM&. oo " 


4926 
4930 


GOSUBS729 
PRINT"WE ARE B&k*NG JAM'ED IN SOM’ O 


DX WVY.." 


4949 
4956 


GOSUBS7296 
PRINT"JAGMINS DYVICKX BRINI OP! !ATED 


BU ALI@eV" 


49°66 


4976 
4986 


PRINT"CIAFT 
GOSUBS729 
PRINT"{CYNF FHF Ft tte tteteeteteteeteetest 


*N VECIOR 9Q37-231A" 


HEHE ttettettetett+t” 


4996 
IOS 
VG1G 


II2L2DG 
IG3E 


Y=INT (RND(1)*¥8) 
IFY=6THENLS="LEXO" 
IF Y=1THENLS="SABU" 


IFY=2THENL#S="REPI" 
IFY=S3THENLS="ASTE" 
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3949 IFY=4THENLS="PRIE" 
92568 IFY=STHENLS="CONA"” 
©3969 IFY=6THENLS="2USI" 


39/78 IFY=7THENLS=" INQU" 

3889 Y=INT (RND(1) #8) 

I69O IFY=OSTHENLS=LS+"TAJE" 

S319G@ IFY=1THENLS=L$+"LL’E" 

3116 IFY=2THENL$=L$+"PROC" 

3126 IFY=3THENLS=LS$+ "LEAL" 

2Y13SG IFY=4THENLS=L$+ "MAPO" 

5149 IFY=STHENLS=L$+ "HERCON" 

S158 IFY=6THENLS=L$+ "OQRAL" 

3160 IFY=/7THENLS=LS+t+ "KOK" 

S178 IFY=S8THENLS=L$+"ZUCC" 

51i8G PRINT"{CYN} + ttt te teee te teetettetete+tte+tt 
FHtHeteetetetetetetet” 

319°SG GOSUBS?729 

3299 PRINT"{YEL}3 THE ALIEN CRAFT IS UNDER 
a | alae 

32190 PRINT"CONTROL OF THE DREADED "3;L% 
S226 PRINT" "IL CYNFtteeee ete tee teetettteteetttett 
F+Htteteteteteteettete+" 

32398 GOSUBS?726 

3235 XC=RND(1) 

22499 IFXC>.PANDRISSOTHENPRINT"THE "3;LS;5 " 

ARE HEADING": PRINT"FOR THE RIEMANNIAN HO 
LD" 

92495 IFXC?. SANDRI->STHENRI=INT(RI/2):2:GOTO 

I29DG 

32908 XC=RND(1): IFXC>.8THENPRINT"FIRE FRO 

M THEIR CRAFT HITS OUR" > PRINT"EXTERNAL F 

NEL WEB!" 

V295 IFXC>,. STHENFU=4X (INT (FU/S) ) : GOTQS29 

G ; 

3260 XC=RND(1):IFXC>.S7THENPRINT" THE "sL 

$5" LASERS STRIKE OUR":PRINT"OXYGEN WEB! 
tn 

3265 IFXC>.S/7THENOX=7HX (INT (OX/8)) > GOTOS2 

eG 

32/8 XC=RND(1):IFXC>.8THENPRINT"QH NO! T 

HE NASTY "3;L%$:PRINT"HAVE SENT A ROBOT RA 
IDER TO” 

V275 IFXC>.STHENPRINT"QUR PRECIOUS PROVI 

SIONS! "{PR=3*¥ (INT (PR/4) ) 
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32830 


PRINT"CCYNFFEFHEEEH HEHEHE HEHE Fete etet+t 


FHEFHttettetttettetre” 


J298 


3388 
3310 


I32G 


GOSUBS726 


IFRND(1)>.46THENS259 
GOSUBS729 


PRINT"{CYNFFHFEEHEHFE HEHEHE EHH Hee tee 


HEtEttetetetetettet” 


3338 
Sie 
3348 
ran es 8 


5368 
S37G 
538¢ 
5398 
540g 
S41¢ 
542¢ 
S43 
5449 


3459 
3466 


34/7 
I486 


I496 
papery 25) 


JII1G 
IU2G 


IIOD 
JIIU4IG 


IOI 
IIOG 
E" 

IV6S 


3078 
2IU8H 


Sses 
pes bas 
IOS 


2619 
IO26 


3O63G 


PRINT" {PURSTHE "s;L%5" ARE RETREATIN 


GOSUBS726 
PRINT" THE ATTACK SEEMS TO BE OVER... 


GOSUBS726 


RETURN 

REM KHEKKHHKKKKHKKE 

REM INITIALISATION 
PRINT" {CLR}" 
POKES3281,0:POKES3289,4 
DIMAS( 12) ,X#$(15) 

PL=9 

WE=INT (RND(1) #590) +75 
FU=INT (RND(1)4¥59) +75 
OX=INT (RND(1)#25) +356 
RI=9 
PR=196-INT(RND(1)*¥73) 
HA=@:. REM HOSTILE ALIENS 
RS=98:REM REFUEL STATION 
FA=@6:REM FRIENDLY ALIENS 
SA=08;REM SPACE ARK 

TP=4: REM TRADING POST 
AT=6: REM SPACE ATTACK 
TE=G@: REM STARDATE 
PRINT"{LT GRNSPLEASE ENTER YOUR NAM 


INPUTNS 
PRINT 
PRINT" TGRNSNOW THE NAME OF YOUR SHI 


INPUTSS 
FORJ=1TO12 
READAS (J) 
NEXT J 
FORJ=1TO15 
READXS (J) 
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3649 NEXT J 

276598 RETURN 

~668 DATA"TERRA", "PEGASUS", "MIRA", "CIVi,” 
»""DELPHINUS", "CYGNUS", "PLEIDES", "HYADES" 
36798 DATA"HYDRUS", "LEPUS", "CARINA", "SPIC 
A", "ASIMOV III", "GALILEO IV" 

3675 DATA"BARNARD’S REST", "PRAESEPE”, "SA 
GAN Ix" 

S638 DATA"NEUTRINON", "SEYFERT VI", "TORUS 
K", "LEMAITRE", "MARKARIA" 

2698 DATA"LEVERRIER", "GAMOW", "HEISENBERG 
", "FIZEAU", "CERENKOV" 

3760 REM X¥XKX* 

3726 REM DELAY 

97308 FOR T=1TO25606:NEXT T 

3749 PRINT 

3738 RETURN 


READY. 
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THE BOXING CHAMP 


Time to square it off in the big ring. You choose the 
strength of your opponent to begin with (1 is easy, 
right up to 9, which is extremely difficult). 


The bell rings and the round has begun. You'Ll see the 
time in the top left hand corner, while the top right 
hand corner shows the number of rounds fought. 


To knock out your opponent, you must get his score above 
ten. Once a player has been knocked down, a count of ten 
will be begun. If the count reaches ten, then it is 
classed as a knock out. If a player gets knocked down 
three times in a round, that will also be classed as a 
knock out. 


If you knock out your opponent, then a stronger opponent 
will come to challenge you. If you beat them all, you'll 
be declared the grand champ. 


Your controls: 


I — up 

M — down 
J —- left 
K -— right 


1@ REM ** BOXING ** 

26 POKES3281,15 

39 POKE6596, 255 

196 REM ** LOAD SFRITE DATA ** 

116 FORK=192TO199 

1296 FORY=9T063: READA: POKESL2+K*¥69+7Y,A: NE 


ee Sy 

POKES3281, 15! V=532498: POKEV+21,3 

131 TIS="G669999" :RO=1 

135 INPUT" {CLRIENTER DIFFICULTY FACTOR(1 
=F 0) 3D od 

136 IFDI<1ORDI>9THENI35 

137 DD=DI:DI=16-DI:DI=DI/19 
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1498 


159 
1696 


179 


4 


> POKEV+t+2, 239: POKEVtS, 296 
266 PRINT" {CLR F" 
2196 PRINT" CHOME;{CUR DNF{CUR 


VS ON; { BRN; 


{GY 23 


2290 PRINT" CHOME? (CUR 


{CUR DN;{ CUR 
{CUR DN {CUR 
{CUR DN;3{ CUR 
{CUR DN} {CUR 
VS ONF{GY 23 
LU} 


DN;< CUR 
DN;{ CUR 


DN {CUR 
DN {CUR 


{RVS OFF" 


DN {CUR 
DN {CUR 
DNs{ CUR 


DN? {CUR 
DN{ CUR 


POKEV+28, 3: POKEV+37, 8: POKEV+38,9 
POKEV+23, 3!POKEV+29,3 
POKEV+39, 


POKE26949, 206: POKE2941, 203: POKEVt+499,6 


DN 


DN; {CUR 
DN? tCUR 
DN (CUR 


DN}{CUR 
DN> 


239 PRINT" {HOMES (CUR DN? {CUR DN FT CUR 


"SPC (6) "{RVS ON? (BRN? 


zu 

248 
CUR 
CUR 
CUR 
CUR 


CUR 
CUR 


RS="{GY 
DN? {CUR 
L3 {CUR 
DN}? {CUR 
L3 {CUR 
DN} {CUR 
L3} <CUR 


CRVS 


tRVS ON (GY 


2:{RVS ON} {CUR 


L>? {CUR 
DN{ CUR 
L+ {CUR 
DN;{CUR 
LL} {CUR 
DN {CUR 


DN?{ CUR 
L> {CUR 
DN+{ CUR 
L>? {CUR 
DN{ CUR 
L> {CUR 


OFF + 
ae 


DN S{ CUR 
Lz? (CUR 
DN {CUR 
L> {CUR 
DN{CUR 
LL? {CUR 
DN{( CUR 


CRVS 


RVS 
259 


OFF?" 


{CUR DN} "SPC (46) RS 
260 PRINT" {HOME} {CUR DN {CUR 
{CUR DN} "SPC (33) RS 

2709 PRINT" {CHOME?{ CUR 


{CUR DN; {CUR 
{CUR DNF{CUR 
{CUR DN (CUR 
{CUR DN;3TCUR 
{GY 23 CRVS 


{RVS ON? { BLU? 


DN;t{CUR 
DNF{ CUR 
DN;{ CUR 
DN? (CUR 
OFF + 

CRVS 


PRINT" {HOME} {CUR DN} {CUR 


DN {CUR 
DN; ¢CUR 
DN><( CUR 
DN3{ CUR 


DN(CUR 


DN {CUR 


DN;t( CUR 
DN} (CUR 
DN<{ CUR 
DN{CUR 


DN} "SPC (6) "{RVS 


OFF 3" 


CR 


DNs 
DN? 
DN + 
DN? 
CR 
CB 


DN +> 


OFF 


Eis faa © 
DN 
L> ¢{ 
DN 
oe ae 
DNC 
et a 


DNs 


DN? 


DN? 
DNs 
DN $ 
DN? 
ON > 


288 X=86:7Y=79:A=23G: B=2906:POKEV, x: POKEVt+ 


Ley 


281 PRINT"{ HOME} {CUR DN3{CUR DN;C{CUR DN 
{CUR DN} CUR DN}{CUR DN} CPUR}CCCECE" 
282 PRINT" {HOME} {CUR DN {CUR DN {CUR DN} 
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{CUR DN} {CUR DN?{CUR DN3{CUR DN} {CUR DN} 
{CUR DN}C@e@e@eC@eGe" 


283 PRINT" {HOME3}{CUR DN}{CUR DN3{CUR DN} 
{CUR DN}<CUR DN}{CUR DN}{CUR DN} {BRN}YO 
U"=PRINT"{HOME3<£CUR DN} {CUR DN}{CUR DN3¢ 
CUR DN}{CUR DN}{CUR DN}{CUR DN} {CUR DN}¢ 
CUR DN}3{CUR DN} {(BLU}3COMP" 

284 PRINT"{HOME}<£CUR DN}{CUR DN}<CUR DN} 
{PUR} @@@@CG" 

285 PRINT" {CHOME} "SPC (17) "{BLU}COUNT" 

286 PRINT"{HOME}{CUR DN}<(CUR DN}{CUR DN} 
{CUR DN} {REDISTAGE{CUR DN}{CUR L}{CUR L} 
(CUR L}{CUR L}3"3DD 

287 PRINT" {PUR} {CHOME}{CUR DN}{CUR DN}<{CU 
R DN}{CUR DN3{CUR DN}{CUR DN}<{CUR DN}{CU 
R DN3<CUR DN}{CUR DN}{CUR DN}{CUR DNieCCe 
Cee" 

298 GOSUBS999: FORT=1TO399!: NEXT: GOSUB999¢E 
1999 REM *% INPUT *% | 

1993 PRINT"{HOME}{CUR DN}{CUR DN}<{CUR DN 
+£CUR DN}{CUR DN}ICUR DN}{CUR DN}{CUR DN 
> "SNO!:PRINT" {HOME} (CUR DN}{CUR DN}{CUR 

DN} {CUR DN}{CUR DN}{CUR DN}<{CUR DN}?{CUR 

DN}{CUR DN}{CUR DN}{CUR DN} "3NN 

1994 PRINT"{HOME}"SPC(32)"{GY LI} ROUND#"R 
oO 

1995 TS(1)=RIGHT#(TIS, 2) :TH(2) =MIDS(TIS, 
Ba2) 

19896 PRINT"{HOME} {GY 1LITIME "STH(BDE"E "3 
TH(1) 

1997 IFTI#%>"9@99199" THENS9EE 

1919 P=PEEK (264) : IFP >293THENPOKE2649, 29 
3 

1928 IFP< 2G3THENPOKE2 946, 298 

193G PU=9:PO=6:P=G:M=9:PD=9 

1949 GOTO3sEa~e 

1954 REM 

1955 GETAS 

1968 IFAS="I"THENY=Y-5:G0TG1129 

1678 IFAS="M" THENY=Y+5!: GOTO112¢ 

1988 IFAS="K" THENX=X+5! POKE 2946, 296: GOTO 
1126 

1999 IFAS="J"THENX=X-5: POKE29498, 293: GOTO 
1122 
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1995 IFAS=""THEN1L12¢ 

119@ IFAS=" "ANDRND(1) >. 6THENIS@S 

1119 IFAS=" "THEN155¢ 

1115 FORT=1TO269!:NEXT 

1120 PE=PEEK(V+39) AND1L 

1138 PP=PEEK(V+39) ANDL! IFPP=1ANDPU=1 THEN 
NN=NN4 12 TFNN>19THENS499 

114@ IFX<7S8THENX=79 

1158 IFY< 78THENY=79 

1168 IFY>195THENY=195 

1170 IFX>245THENX=245 

129@ POKEV,xX:POKEV+t1,Y 

1218 GOTO1gss¢g 

159@ REM *% PUNCH ¥* 

1519 IFPEEK (2649) =2O3THENPO=264: M=-8: GOT 
01539 

152@ PO=291:M=8 

153@ PU=1:POKEV, X+M! POKE2949, PO 

1549 GOTO1115 

155@ IFPEEK (2949) =2O3THENPO=205: M=-S8: GOT 
01576 

1568 PO=292:M=8 

15708 PU=1:POKEV, X+M: POKE294@, PO 

158@ GOTO1115 

2969 REM *% OPPONENT PUNCH ** | 

20198 IFPEEK (20841) =2@3THENPO=264: M=-8: GOT 
02938 

2828 PO=2081:M=8 

2G3@ PD=1:POKEV+2, AtM: POKE2@41,P0 

2848 GOTO3299 

2058 IFPEEK (2941) =2@3THENPO=285!M=-8: GOT 
02979 

2966 PO=292:M=8 

2076 PD=1:POKEV+2, A+M: POKE2941,P0 

2888 GOTO329¢g 

3964 REM ** OPPONENT ** 

3G1G IFAC XTHENA=A+5: POKE2@41, 299 

3928 IFA>XTHENA=A-5! POKEZ@41, 293 

3838 IFB>YTHENB=B-5 

3949 IFB<YTHENB=Bt5 

3958 IFRND(1) >DITHEN29G2 

3968 IFRND(1) >DITHEN295@2 

3299 FORT=1TO19@: NEXT 

321G QW=PEEK (V+39) AND2 
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3228 


WE=PEEK (V+39) AND2: ITFWE=2ANDFD~. THEN 


NO=NO+1:;IFNO>1STHENSS9S 


32368 
3249 
S250 
4DDD 
4991 


4916 
4826 


IFWE=2THENA=At5 
POKEV+2,A:POKEV+3,B 
GOTO195¢ 

REM #HXHEKHHE 
POKE29641,283:POKE29490, 2966 
IFAS 239GTHENA=At5 

IFB< 268THENB=BtS 


4G38 IFA>23GTHENA=A-5 

4949 IFB>299THENB=B-5 

4959 IFA=23GANDB=29GTHENSSSS 

4955 T#(1)=RIGHTS(TIS, 2) :T#(2) =MIDSH(TIS, 
Sa) 

4956 PRINT"{HOME3 (GY 13 TIME "ST#(2)5"2"3 
TH(1) 

4957 IFTI#>"99G19G" THENSIaAE 

4G6@ POKEV+2,A:FPOKEV+t3,B 

4978 FORT=1T0159: NEXT 

ags@ GoTOdsse 

5999 B(RO)=B(RQO) +1 

5991 IFB(RO)=3THENS@5@ 

5@1@ FORT=1TO19:PRINT"{HOME}<CUR DN3"SPC 
(18)3T 

5@15 TH(1)=RIGHTS(TIS, 2): T#(2) =MIDS(TIS, 
3,2) 

S@16 PRINT" {HOME} {GY 13 TIME "STH(2)5 "2 "3 
TH(1) 

S@i7 IFTI#> "9991 8G" THENSSSA 

5G@2@ IFRND(1)>.78THENX=898: Y=79:FRINT" CHO 


MES{CUR DN "SPC(19)" 


IASG 
IIH4AG 


IBIAS 


"3; GOTO1IDGS 
FORTT=17TOSOG:NEKT 

NEXT 

PRINT" CHOMES (CUR DNFCCUR DNSt{CUR DN 


+{€CUR DN3{CUR DN}<CUR DN} CCUR DNC BRNZKN 
OCK{CUR DN3{CUR L3{CUR L}{CUR L}O0UT" 


3IhG 
I/O 


IB3d 
IBOG 


POKEV+21,2 
FORTT=1TO5@@: NEXT 


PRINT" CHOME} THE WINNER" 
FORT=239TO7@STEP-1:POKEV+2, T:FORTT= 


1TO2ZO:NEXT?2 NEXT 


J1GG 


FORT=296TO’7OSTEP-1:POKEV+t+3, T:FORTT= 


1TO2G:2: NEAT: NEXT 


2110 


POKE29491, 2909: FQRT=/6TOQ230: PQOKEVt2, T 
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>FORTT=1TO2SONEXT: NEXT 


3126 
MEAT : 
J13G 
@ 

2142 
3IIGD 
2491 
I41G 
I428 


543g 
5459 
5455 
3,2) 
5456 
TH(1) 
5457 
5469 
5472 
5482 
S590 


JIG 1 
Jol 


FORT=/78TO296: POKEV+3, T: FORTT=1TO2S: 
NEAT 
POKE2@41,2963:POKEV+t+2, 160: POKEVt+3,13 


END 

REM XXXKXXXHX 
POKE2941, 296! POKE294@, 299g 
IFX>SGTHENX=xX-5 

IFX< SO9THENX=X+5 

IFY }79THENY=Y-5 
IFX=89ANDY=79THENS599 

T$(1) =RIGHTS (TIS, 2): TH(2) =MIDS(TIS, 


PRINT"{HOME}3 {GY LI3TIME "STH(2Z)E"E "3 
IFTI$>"G@9G1 9S" THENSSAE 

POKEV, X!:POKEV+1,Y 

FORT=1TO159: NEXT 

GOTO5499g 

A(RO)=A(RO) +1 

IFA (RO) =3THENSS59 
FORT=1TO19:PRINT"{HOME}{CUR DN} "SPC 


(18)5T 


5515 
342) 
5516 
T#H(1) 
S517 


BULG 


OME {CUR DN} "SPC(19)" 


pas ben BS 4] 
II40 


BIOS 


TS(1) =RIGHTS (TIS, 2) °TS(2) =MIDS(TIS, 


PRINT" CHOMES {GY 1L3 TIME sTSBCS)50E"S 
IFTI$S?> "GMG1 G89" THENSHOS 

IFRND (1) >DITHENA=2396: B=299:>PRINT"tH 
"3; GOTO19D 
FORTT=17TO0369: NEXT 

NEXT 

PRINT" (HOMES {CUR DNSTCUR DN3{CUR DN 


+{CUR DNFC{CUR DNILCUR DNFCCUR DNSCCUR DN 
7{CUR DNSCCUR DN TBLUJKNOCK{CUR DN} {CUR 
L3i{CUR LIITCUR L?O0OUT” 


VID 


POKEV+21,1 


3376 FORTT=1TOS6G: NEAT 


DIUSS 


PRINT" {HOMES THE WINNER" 


S35°SG FORT=76TO236:POKEV, T°; FORTTH=1TO2O: NE 
“TSNEX 

360908 FORT=/OTO290O: PFOKEV+1, T;SFORTT=17T020: 
NEXT ONEXT 
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5619 POKE2G49, 263: FORT=239TO7SSTEP-1:POK 

EV, T:FORTT=1TO2@!: NEXT: NEXT 

5629 FORT=2@9TO7@STEP-1:POKEV+1, T!:FORTT= 

1TOZG! NEXT! NEXT 

5638 POKEZG4G, 200: POKEV, 169: POKEV+1,139 

5649 DI=DI-.1: IFDI=ATHENS7G@ 

5645 PRINT" {HOME} 

S659 A=239: B=29G: POKEV+t21, 3:FORT=1TO59@: 

NEXT: GOTOS5SSE 

57099 REM ¥**% YOU’RE THE CHAMP ** 

5710 POKEV+21,@:PRINT"{(CLR}" 

5728 IFRO=19THENPRINT"{ BLU} YOU WENT FOR 

NINE ROUNDS, SO IT’S A DRAW": GOTO5746 

5739 PRINT"{FUR} YOU ARE NOW THE CHAMP. W 

ELL DONE!" 

5749 PRINT! PRINT: PRINT 

5759 PRINT"WOULD YOU LIKE TO GO ANOTHER 

ROUND" 

5769 INPUTAS: IFLEFTS$(A%, 1)="N" THENEND 

5778 IFLEFTS(AS,1)<>"Y¥"THENS75@ 

5789 RUN1I39 

6998 REM *¥* SPRITE DATA ** 

6919 DATAG,9,16,9,8,84,9,41,85,9, 169,85, 

2,168,84,2,128,16,19,9,9,19,9,9,19,69,@ 

6828 DATAIG,255,9,19,255,192,19,255,192, 

19,255,9,19,69,9,19,9,9,19,8,16,2,136,84 

4930 DATA2, 1469,85,9,169,85,9,49,84,9,9,1 
3 

5848 DATAG,G,16,9,8,84,9,169,95,19,169,8 

5,42,168,84,42,9,16,169,9,9,169,9,@¢ 

69508 DATA163,192,9,175, 249,9,175,252,9,1 

75,252,9,175,249,98,163,192,9,169,9,8 

6968 DATA16@,16,9,168,84,9,41,85,9,9,85, 

G,8,34,9,9,16,9,9 

6978 DATAG,16,9,8,94,9,41,85,9,41,85,9,1 

68,84,9,169,16,9,163,192,9,175,2949,9 

6988 DATA175,252,9,175, 252,9,175,252,9,1 

75,249,9,163,192,9,169,9,9,169,9,9 

6898 DATAG2,9,16,42,168,84,19,169,85,9,1 

69,85,9,8,84,9,9,16,¢ 

6198 DATA4,G,@,21,32,8,85,196,8,85,196,1 

28,21,42,169,4,9,168,9,9,49,9,9,49 

6119 DATAG,15,49,9,63,232,8,63, 232,9,63, 
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232,9,15,49,9,9,49,9,9,49,4,9,148 

6128 DATA2Z1,42, 169,85, 196,128,835, 196,9,2 
1,32,9,4,9,9,@ 

6138 DATA4,G,G, 21,32,9,85,1946,128,85,1964 
,168, 21,42, 168,4,9,42,9,9,19,9,9,1@ 

614 DATAG,3,292,9,15, 259,08, 63, 259,9,63, 
259,9,15,259,9,3,292,9,9,19,9,16,19 

6159 DATAS,34,168,1,385,168,1,385,169,9,84 
,128,9,16,9,G 

616 DATAS,16,9,6,84,128,1,85,169,1,85,1 
68,9,84,168,9,16,19,9,9,19,9,3, 292 

6178 DATAG, 15, 259,9, 63, 259,9,63,259,9,15 
,258,8,3,202,9,9,19,9,9,19,4,8,148 

6188 DATA21,42,168,85, 196, 169,85,196,9,2 
1,32,9,4,9,9,G 

6198 DATAG,9,9,9,9,9,9,9,49,9,9,9,9,8,148 
,9,8,168,9,2,164,9,2,149,9,2,149 

6208 DATA2Z34, 234, 132, 234, 234, 163, 234, 234 
175,95, 234, 175, 234, 234,175, 234, 239,163 
6218 DATA234, 234,128,9,2,128,1,74,128,5, 
99,128,1,74,128,9,9,9,@ 

6228 DATA42,9,9,42,128,9,16,128,9, 86,1293 
,9,86,128,8,18,128,9,2,171,171 

6238 DATA2@2,171,171,258,171,171,258,171 
,9,259,171,171,292,171,171,2,171,171 
6248 DATA2,128,9,2,161,64,2,165,89,2,161 
,64,9,9,9,9,5,8,9,9,89,9,8,8,@ 


SOOG 


BI1G 
SGis 


SOG2S 


#1,Y: 


BIA3G 
SH31 


8b45 


SIs50G 


REM ** END OF ROUND ** 

GOSUBSI9IG 

POKE2649, 206: POKE2941, 263 
X=80:Y=70: A=230: B=2G90:POKEV,x%: POKEV 
POKEV+2,A:POKEV+3,B 
RO=RO+1:TISB="GGGGGG" > NN=G0:NO=6 
IFRO=196THENS796 


FORT=1TO69 
PRINT" {HOME3PREPARE FOR NEXT ROUND" 


FORTT=1TOSG: NEXT PRINT" CHOMES(RVS O 


NSPREPARE FOR NEXT ROUND{RVS OFF}" 


86535 FORTT=1TOS@: NEXT: NEAT 

S956 PRINT" {HOME 3} {BLUSC 
OUNT . 

8968 GOSUBIGSE 

S665 PRINT" CHOME; (CUR DN {CUR DN3{CUR DN 


{CUR DN}{CUR DNITCUR DN?{CUR DN-{CUR DM 
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a 
3 


CCUR 
Shv7g 
S35G 
SIG 1 


S382 
SUMS 


"SPRINT"{CUR DN}CBLU} COMPICUR 
L7<{CUR L3C{CUR LitTCUR Ls : 
GOTO1SGIE 
REM #*#* STRONGER MAN ** 

PRINT" (HOMES (CUR DN? 
FORT=1TO?:; A(T) =6:. NEXT 
DD=DDt1 


Di > 


8595 POKE2Z94G, 208: POKE2941, 203 

S519 X=8@:Y=70:POKEV, X%:POKEV+1, Y:FOKEV+2 
,A:POKEV+t3,B : 
852@ RO=1!:NN=9:NO=9 

8538 FORT=1TO4@ 

2549 PRINT" (HOME}PREPARE FOR 
NGER" 

SS5@ FORTT=1TOS@: NEXT 

856@ PRINT"{HOME}{RVS ON}PREPARE FOR NEX 
T CHALLENGER{RVS OFF}" 

857@ FORTT=1TO59: NEXT 

8589 NEXT 

S599 GUSUBSH9S: FORT=1TO399: NEXT: GOSUB9SS 
8699 TIS="S999R6" 
S619 PRINT" {HOME} 
OUNT " 
8629 PRINT"{HOME3}{CUR DN}{CUR DN3{CUR DN 
+(CUR DN}{CUR DN}{CUR DN}<{CUR DN3{CUR DN 
} "!PRINT"{CUR DN}{BLU} COMPCCUR DN} 
{CUR L3{CUR L3?{CUR L}{CUR L} " 

8625 PRINT"{HOME3{CUR DN}{CUR DN3<{CUR DN 
+<CUR DN}{CUR DN} "3DD 

8639 GOTOLSESE 

9966 REM *% BELL ¥* 

9G19 POKES4296, 15: POKES4276,8:POKE5S4277, 
19: POKE5S4276, 17: POKES4273, 469 

9928 RETURN 


MEXT CHALLE 


{BLUSC 


READY. 
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DETECTIVE @ 


You are Detective Q, the man called in to solve the 
Mystery of the Murder at the Mansion. 


It happened Like this. Six guests are sharing a meal one 
evening at the Micro Mansion. The meal ends just before 
8 pm and the guests decide to spend the rest of the 
evening exploring the mansion, and to meet again just 
after midnight for a final drink before bed. 
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However, when midnight arrives and the guests re- 
assemble, there is one missing. A hasty search of the 
Mansion produces A Body in A Location: 


BETTY CRUMB'S BODY WAS DISCOVERED 
DEENG fh cee SERVANTS* QUARTERS 


You are called in. You have to discover The Murderer and 
The Time At Which It Took Place. Once you've questioned 
as many of the guests as you Like, you can make_ an 
accusation. You are only allowed to make two accusations 
per game, and if you do not succeed in discovering the 
murderer, and the time at which the murder took place, 
the computer will tell you who did the dastardly deed. 


You refer to the guests by using the first letters of 
their first names, which due to a happy co-incidence, 
are extremely easy to remember: 


A — Arthur Moment 

B —- Betty Crumb 

—- Caroline Forsooth 
—- Derek Lockjaw 

— Emma Hornswipe 

- Fatty Thompson 

- General Bluff 


qQnmwo © 


You'Ll be asked if you wish to question a suspect or 
make an accusation: 


ENTER 1 TO QUESTION A SUSPECT 
OR 2 TO MAKE AN ACCUSATION 
Sa) 


You have to indicate not only the person you wish to 
question (which you do, as was pointed out above, by 
entering the first letter of their first name) but also 
the time (8, 9, 10 or 11) that you wish to know about: 


WHO WOULD YOU LIKE TO QUESTION? A 


ARTHUR MOMENT IS READY 
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WHICH HOUR DO YOU WISH TO ASK ABOUT? 8 
ARTHUR MOMENT REPLIES: 
I WAS IN THE KITCHEN 


> DO YOU WANT TO MAKE 
AN ACCUSATION (Y OR N)}? N 


You have a map of the mansion, which is very useful as 
an aid to help determine who was where, at what time. 
You should make notes of where people have claimed they 
were at particular times, and who they saw in other 
rooms, to track down any discrepancies in their stories. 
A sample chart is given just before the program Listing. 


WHO cb COU LIke £0 QUESTION? D 


DEL}TK LOCKJAW IS READY 


WHICH HOUR DO YOU WISH TO ASK ABOUT? 8 
DEREK LOCKJAW REPLIES: 


I WAS IN THE STUDY 
I SAW FATTY THOMPSON IN THE DINING ROOM 


> DO YOU WANT TO MAKE 
AN ACCUSATION (Y OR N)? N 


WHO WOULD YOU LIKE TO QUESTION? E 


EMMA HORNSWIPE IS READY 
WHICH HOUR DO YOU WISH TO ASK ABOUT? 8 


EMMA HORNSWIPE REPLIES: 
I WAS IN THE LIBRARY 
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>» DO YOU WANT TO MAKE 
AN ACCUSATION (Y OR N)? N 


WHO WOULD YOU LIKE TO QUESTION? A 


ARTHUR MOMENT IS READY 


WHICH HOUR DO YOU WISH TO ASK ABOUT? 9 


ARTHUR MOMENT REPLIES: 

I WAS IN THE SERVANTS! QUARTERS 
CAROLINE FORSOOTH WAS WITH ME 
FATTY THOMPSON WAS WITH ME 


As you can see, the idea is to try and find out who is 
Lying, and therefore pin them down as the murderer. Only 
the murderer will Lie to you, and he or she will only 
Lie about the particular hour in which the murder’ took 
place (and the Lie will be relatively consistent, at 
least in some particulars). However, the other guests — 
although they will never lie - are not particularly 
helpful, and will not always tell you the complete 
truth. That is, they are quite happy to tell you where 
they were at a particular hour, but are not always’ so 
forthcoming as to who was in the room with them (which 
is, I guess, understandable in some circumstances) nor 
the identity of those they saw in adjoining rooms. 


WHO WOULD YOU LIKE TO QUESTION? C 


CAROLINE FORSOOTH IS READY 


WHICH HOUR DO YOU WISH TO ASK ABOUT? 9 


CAROLINE FORSOOTH REPLIES; 
I WAS IN THE LOUNGE 
DEREK LOCKJAW WAS WITH ME 
I SAW EMMA HORNSWIPE IN THE CONSERVATORY 
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> DO YOU WANT TO MAKE 
AN ACCUSATION (Y OR N)? N 


Eventually you should have enough information to make an 
accusation: 


WHO WOULD YOU LIKE TO QUESTION? D 


DEREK LOCKJAW IS READY 


WHICH HOUR DO YOU WISH TO ASK ABOUT? 9 


DEREK LOCKJAW REPLIES: 
I WAS IN THE ENTRANCE HALL 
EMMA HORNSWIPE WAS WITH ME 


> DO YOU WANT TO MAKE 

AN ACCUSATION (Y OR N)? Y 
THIS IS TRY NUMBER 1 
WHO WAS THE MURDERER? C 


WHEN DID IT HAPPEN? 10 
YES, CAROLINE FORSOOTH IS THE KILLER 


YOU'VE GOT THE KILLER, ALL YOU NEED 
NOW IS THE TIME 


Remember, you only have two guesses, so you must not 
waste them. If you fail to identify the murderer and the 
time at which the deathly deed was done, the computer 
will spill the beans: 


WHO WOULD YOU LIKE TO QUESTION? E 


EMMA HORNSWIPE IS READY 
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WHICH HOUR DO YOU WISH TO ASK ABOUT? 10 


EMMA HORNSWIPE REPLIES: 
I WAS IN THE DINING ROOM 


> DO YOU WANT TO MAKE 

AN ACCUSATION (¥ OR N)? Y 
THIS IS TRY NUMBER 2 
WHO WAS THE MURDERER? C 
THEN DID IT HAPPEN? 11 
YES, CAROLINE FORSOOTH IS THE KILLER 
YOU'VE GOT THE KILLER, ALL YOU NEED 
NOW IS THE TIME 


HOWEVER, YOU'VE USED UP ALL YCUR GUESSES 


THE MURDERER WAS CAROLINE FORSOOTH 


THE KILLING TOOK PLACE AT 9 PM 


When you turn up at the mansion, you are provided with a 
map of the building, to help you clarify your thoughts: 


Ok, Detective Q@. Armed with your map and your’ razor- 
sharp mind, you must now tackle one of the most 
difficult cases of your career. 


57 


LOUNGE | DINING STUDY 
? ROOM 


-|__--— 


CONSERVATORY | PITCH BLACK BALLROOM 


COURTYARD - 
NO ONE USES 
IT, MURDER 
ENTRANCE Ce ee SERVANTS! 
HALL | QUARTERS 
MASTER LIBRARY KITCHEN 
BEDROOM 


Note that although the murderer will Lie, other guests 
may well have seen him or her in the room where it 
happened at the time of the murder, although (of course) 
the murderer will claim to have been elsewhere at the 
time. A chart Like the following can help you’ track 
down the killer in record time: 


B ) 10 11 
A: KITCHEN: SERVANTS: =? BO: 
a. << + « &e & 
C: BALLR. : LOUNGE?: = — ; STUDY : 
D:sTuY : | :BEDR.? : : 


E : LIBRARY : LOUNGE : BEDROOM 


F : DINING : SERVANTS : © STUDY? : 


G : SERVANT : : > BALLR. : 
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Here's the Listing to enable you to tackle the Awful, 
Unspeakable Crime: 


5 POKES3231,9: POKES3289,5 

16 REM DETECTIVE &@ 

26 GOSUBS99: REM INITIALISE 

360 PRINT"{CLRIC{VYEL3 "2 PRINT: PRINT 

46 PRINTGS(MV)3"’S BODY WAS DISCOVERED" 

9G PRINT"LYING IN THE "SRS(MP) 

698 PRINT: PRINT"{CYN?" 

78 PRINT"ENTER 1 TO QUESTION A SUSPECT" 

86 PRINT" OR 2 TO MAKE AN ACCUSATION" 

?9 INPUTC 

1908 IFC<K >1ANDCS C2 THENSS 

119 IFC=2THENS1¢ 

115 GOSUBS96¢ 

126 PRINT"{OR}WHO WOULD YOU LIKE TO QUES 

TION" 

1235 PRINT: INPUTBS 

136 BS=LEFTS(BS, 1) 

1949 FL=9 

159 IFBS=LEFTS(GS(MV) ,1) THENPRINT"{YEL?+D 

ON’T BE SILLY! "2: GOSUB1269: GOTO69 

169 PRINT 

176 FORJ=1TO? 

186 IFBS=LEFTS(G$(J),1)  THENPRINT"{LT GRN 
7"GS(J)5" IS READY": FL=J 

19°99 NEXTJ 

260 IFFL=GTHEN6S 

2106 PRINT: PRINT 

226 PRINT"WHICH HOUR DO YOU WISH TO ASK 

ABOUT" 

225 INPUTB 

236 IFB<SORB>11THEN22S 

2499 B=B-?7 

256 PRINT 

2606 PRINT"{PURS "GS(FL)3" REPLIES: " 

276 IFFLS OMRORB< OMHTHENPRINTTAB(3)5 "I WA 

S IN THE "s;RS(ACFL,B) ) 

2860 IFFL=MRANDB=MHTHEN?ZSS 

29°98 IFFL=MRANDB=MHTHENPRINTTAB(3)35 "I WAS 
TN THE "SRS(x%) 
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295 IFFL=MRANDB=MHTHENT=INT (RND(1)¥7) 415 
TET ONG DMR HEN EE es ie WAS WITH 
398 IFFL=MRANDB=MHTHEN44S 

31G REM ** SHARING ROOM ** 

328 FORJ=1TO7 

339 IFJ=FLTHENS5¢ 

348 IFA(J,B)=A(FL,B) ANDRND(1) >. 2THENPRIN 
TGS(J)3" WAS WITH ME” 

358 NEXTJ 

368 REM ** ADJOINING ROOMS x** 

37G IFA(FL,B)=19THENNL=9:N2=1:GOTO49¢ 
38@ IFA(FL, B) =1THENN1=19:N2=9: GOTO4g¢ 
39@ N1=A(FL,B)-1!:N2=A(FL,B) +1 

49@ FORJ=1TO7 

419 IFA(J,B)=NiANDRND(1)>.4THENPRINT"I S 


AW "3;GS$(J)5" IN THE "SRS(N1) 

426 IFA(J,B)=N2ANDRND(1)>.4THENPRINT"I S&S 
AW "3;GS$(J)3;" IN THE ";RS(N2) 

4390 NEXTJ 


449 REM *%* CHANCE FOR ACCUSATION ** 

4590 PRINT: PRINT 

4696 PRINTTAB(6)5"> DO YOU WANT TO MAKE" 
4796 PRINTTAB(6);"AN ACCUSATION (Y OR WN)" 
486 INPUTBS 

4990 IFBS< > "Y"ANDBS< > "N" THENSSS 


599 IFBS="N"THENPRINT"{CLR? "SPRINT: PRINT 
-GOTO11¢ 


321G@ GU=GUtl1 

315 GOSUBS99¢g 

320 PRINT”"THIS IS TRY NUMBER"GU 

336 PRINT: PRINT"WHO WAS THE MURDERER?" 
935 INPUTMS 

9490 PRINT: PRINT"WHAT TIME DID IT HAPPEN" 
345 INPUTCL 

S58 PRINT: PRINT 


369 FL=9 
~/798 TFLEFTS (MS, 1) =LEFTS(GS(MR),1) THENPRI 
NT"YES, ";GS(MR)3" IS THE KILLER": FL=FL+t 


1 
5388 IFCL=MHt+7THENPRINT: PRINT" YES, IT HAP 


PENED AT"CL:FL=FLt+4 
2998 GOSUB1269 
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6990 IFFL=ASTHEN6/D 
616 IFFL=1THENPRINT"YOU’VE GOT THE KILLE 


R, ALL YOU NEED":PRINT"NOW IS THE TIME” 
629 IFFL=4THENPRINT"YOU’VE GOT THE TIME, 
BUT THE KILLER":PRINT"STILL ELUDES YOU" 
638 IFFL=S8THENPRINT"WRONG ON BOTH COUNTS 
tirinu 

649 GOSUB1269 

659 IFGU< 2THEN3@ 

669 PRINT:PRINT"HOWEVER, YOU’VE USED UP 
ALL YOUR GUESSES": GOTO699 

678 PRINT"WELL DONE!" 


6890 FRINT: PRINT" YOU’VE SOLVED THE MURDER 


699 PRINT:PRINT 
78G PRINT"THE MURDERER WAS "3G%(MR) 

718 PRINT:PRINT"THE KILLING TOOK PLACE A 
T"MH+7"PM" 

72@ END 

73G PRINTTAB(3)5 "I WAS IN THE "3RS(X) 
74@ T=INT(RND(1)¥7) +1! IFT=MRORT=MVTHENZ4 
w 

758 S=INT(RND(1)*7) +12 IFS=MRORS=MVORS=TT 


HEN?YS9 

7606 IFRND(1)>.7THENPRINTGS(S)53" WAS WITH 
ME" 

278 IFRND(1)>./7THENPRINTGS(T)3;" WAS WITH 
ME" 


7898 IFX>1THENN1=xX-1 

7BL IFX< 2THENSSS 

298 T=T+12: IF T=8S8THENT=6 

849 IFS=6O0RMV=60RMR=6THENSSS 

S1G PRINT"I SAW "§GS(T)5" IN THE "3RS(N2 
) 

S26 GOTO449 


B30 IFX< 1S6THENN2=x+t1 
S31 IFX>9THENS2S 


3490 T=T-1:IFT=GTHENT=2 
350 IFS=2O0RMV=20RMR=2THENS2¢ 
S690 PRINT"I SAW "3GS(T)5" IN THE "5;RS(N2 


3/76 GOTO44G 


S8G REM KEKKKKKKKKKKKE 
S99 REM INITIALISATION 
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PGS 
91d 


P28 


935 
946 
93d 
968 
976 
93g 


99D 


PRINT"CCLR>" 
REM 


DIMA(7,4) ,GS(7) ,RB(1G) 


FORJ=1TO? 

FORK=1T04 

A(J,K)=INT(RND(1)%¥19) +1 

NEXTK 

NEXTIJ 

MH=INT (RND(1)*4)41:REM MURDER HOUR 


MV=INT (RND(1)¥7)+1° REM MURDER VICTIM 


1996 
14196 
1920 


= 
1936 


MR=INT (RND(1)%¥#7)+12REM MURDER 
IFMR=MVTHEN1I S69 
MP=INT (RND(1)¥19)+1°REM MURDER PLAC 


AC(MR, MH) =MP> REM PUT MURDERER IN ROO 


Vl WHERE MURDER TOOK PLACE 


BAG 
1956 
1969 
1676 
1986 


1996 
ROOM 
1196 
1116 
1129 
1136 
1149 
1159 
1169 
1176 
1189 
11°96 
1266 


REM MOVE VICTIM FROM HOUR OF DEATH 
FORK=MHTO4 

A(MV,K) = 

NEXTK 

X=INT (RND(1)¥18) +1 


IFX=MPTHENIG89:REM GIVE MURDERER A 
TO LIE ABOUT 

GU=6 

REM NAME GUESTS 

FORA=1TO? 

READGS (A) 

NEXTA 

REM NAME ROOMS 

FORA=1T019 

READRS (A) 

NEXTA 

RETURN 

DATA"ARTHUR MOMENT", "BETTY CRUMB", " 


CAROLINE FORSOOTH", "DEREK LOCKJAW" 


1216 


DATA"EMMA HORNSWIPE", "FATTY THOMPSO 


N°", "GENERAL BLUFF" 


1226 


DATA"ENTRANCE HALL", "CONSERVATORY", 


"LOUNGE", "DINING ROOM" 


1230 


DATA"STUDY", "BALLROOM", "SERVANTS’ @Q 


UARTERS", "KITCHEN", "LIBRARY" 


1249 


12590 
12696 


DATA"MASTER BEDROOM" 


REMHEKKEHKKKKKKKKKKKHKKEK 
REM DELAY 
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1279 
1289 


ISDE 


IG16 


IG2OG 


3G3G 
IG4AD 
3945 
IOGSG 
van bes es) 
ay 4 ny 2) 
39653 
IGS 
28/73 
3IGSS 
IOBS 
IAPR 
ISOS 
2196 


1gs 
110 


FORT=1T01299: NEXTT 
RETURN 
PRINT" {CLR CHOMES{(RVS ON} {RED} 


ila 
9 


PRINT" {YEL3 SUSPECTS 


PRINT" {RED}? 


PRINT: PRINT 
IFMV=1THENSS3¢ 
PRINT" {OR} ARTHUR MOMENT" 
TFMV=2THENSS69 

PRINT" BETTY CRUMB" 
IFMV=S3THENSS7G 
PRINT"CAROLINE FORSOOTH" 
IFMV=494THENSS86 


PRINT"DEREK LOCKJAW" 
IFMV=STHENSS9S 


PRINT"EMMA HORNSWIPE" 
IFMV=6THENS1 969 
PRINT"FATTY THOMPSON" 
IFMV=7THENS11¢ 


PRINT"GENERAL BLUFF" 
PRINT" {CYN} @@C@CCCCCCCCECCECCECCECEEE 


CCCCCECCECCECCCECEC"; 


J126 
V130d 


RETURN 
RETURN 


READY. 
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Klondike Bill was a famous gambler back in the days when 
paddle-steamers plied the Mississippi (well, he wasn't 


actually, ‘cos I just made him up, but it sounds 
probable). 


Rah \ 
i A\\\ 


Kine mare 5 
nine ttil : Zz 
. a 


In this game, you take the part of Klondike Bill in a 
few breath-taking rounds of poker dice. Both you and the 
computer start the game with 100 chips each: 
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Stand by, Klondike Bill... 


as I rattle the dice... 


I have 100 chips 
and you have 100 


Your hand is dealt, and then the computer shows you the 
first two of its own cards. Based on your own judgement 
on how the rest of the computer's hand will come out, 
you are invited to place a bet: 


Your hand is: 
--> five five five two four 


#® THREE OF A KIND #8 


I am dealing my own hand... 
Here are the first two cards: 


--> four four 
How much do you want to bet? 23 


OK, 23 CHIPS IT IS... 


Here is my hand; 
four four three six three 


)*# TWO PAIR #( 
And you win that round! 
>-> Your chips: 123, mine: 77 


Press the space Dar... 


Stand by, Klondike Bill... 


as I rattle the dice... 
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The game continues in this way until either of you 
Less than nine chips: 


I have 77 chips 
and you have 123 


Your hand is: 
-=-> two two six two two 


<<FOUR OF A KIND>> 


I am dealing my own hand... 
Here are the first two cards: 


~-> one five 
How much do you want to bet? 40 


OK, 40 CHIPS IT IS... 


Here is my hand: 
one five three six two 


DEAD HAND... 


And you win that round! 
>=-> Your chips: 163, mine: 37 


Press the space bar... 


Stand by, Klondike Bill... 


as I rattle the dice... 


66 


have 


Once 


I have 37 chips 
and you have 163 


Your hand is: 
--> four four five five five 


THREE AND TWO 


I am dealing my own hand... 
Here are the first two cards: 


--> three four 
How much do you want to bet? 37 
OK 37 “CHIPS. 17 2Sea3 
Here is my hand: 
three four six one four 
#> A PAIR <# 
And you win that round! 


mwewrnaerFraae@ae@eseeweeerwreeewaeoe @weqeeee eee ae wae a oe eh ae & awe ae 


You've beaten me, Klondike Bill 
Wait till next time! 


you're broke, you can challenge the computer 


another round or two, if your nerves will take 


Here! 


s the listing, Mr K Bills 
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to 
it. 


16 REMKLONDIKE POKER 

26 REM 

38 GOSUB1119:REM INTIALISE 

49 PRINT"{CLR}": POKES3281 ,6: POKES3289,8 
98 GOSUB1199 

69 PRINT"{CLR3"2PRINT 

78 PRINT"{CYN} I HAVE"CC"CHIPS" 

86 PRINT" AND YOU HAVE"HC 

9S HA=¢G 

199 PRINTS PRINT"{YEL3 YOUR HAND IS:" 
1196 GOSUB649: REM DEAL HAND 

126 GOSUBS29: REM ASSESS HAND 


136 GOSUB1259 
1499 GOSUB1999:REM ANNOUNCE HAND 


159 HS=PO:REM HUMAN SCORE 

166 PRINT: PRINT"I AM DEALING THE FIRST T 
WO CARDS: ": PRINT 

199 HA=1 

2900 GOSUB649:REM DEAL COM. HAND 

216 GOSUBS29: REM ASSESS HAND 

226 GOSUB125¢ 

236 PRINT? PRINT" {€YEL}HOW MUCH DO YOU WAN 
% To BET" 

235 INPUTBE 

299 IFBE< 1LORBE >HCTHEN239 

2506 PRINT: PRINT"{CYN3OK, "BE"CHIPS IT IS. 


268 GOSUB125¢9 

276 PRINT:PRINT:PRINT"{LT GRN}3HERE IS MY 
HAND: " 

288 FORJ=1TO5 

298 ONA(J) GOSUB7Z5G, 769, 779, 789, 79S, SAG 

389G FORZ=1TOS@@:NEXTZ 

319 NEXT J 

326 GOSUB 125¢ 

338 PRINT 

348 GOSUB199@9:REM ANNOUNCE HAND 


359 CS=PO:REM COMPUTER SCORE 
368 IFHS=CSTHEN4S4S 


376 IFHS>SCSTHENSSS 

SBGH REM KKEKKKHKHHKHKKKEKKHKHKKKKE 

399 REM COMPUTER WINS 

498 PRINT: PRINTTAB(6)3;"{LT RED}I WIN THA 
T ROUND" 
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41¢ 


HC=HC-BE:CC=CCt+BE 


429 GOTOS346 

ASG REMEXKKHKHKKHKKKKKKKKKEHHEKRE 

449 REM A DRAW 

459 PRINT: PRINT"{LT RED}THAT ROUND WAS A 
DRAW" 

466 PRINT"WE BOTH LOSE”"BE"CHIPS TO THE B 
ANK " 

4796 CC=CC-BE:HC=HC-BE 

4386 GOT053¢9 

APH REM KKEKKKKHHKEKHKKHHEKHHKEKKE 

396 REM HUMAN WINS 

Y1G PRINTS PRINTTAB(6)3;"{LT RED} AND YOU W 
IN THAT ROUND!" 

329 HC=HC+BE: CC=CC-BE 

530 PRINT: PRINT">@> YOUR CHIPS: "STRS(HC) 


", MINE: "CC 


3465 
JUG 


696 


IFHC< SORCC< 9 THENS89 
GOSUB1256¢6 


GOSUB1199 
GOTOQ66 


PRINT" ------------------------------ 


IFHC=CCTHENPRINT"WE’ VE BOTH BEEN KIC 
OUT OF THE GAME!!" 


IFHC>CCTHENPRINT"YOU’VE BEATEN ME, K 


LONDIKE BILL": PRINT"WAIT TILL NEXT TIME! 


619 


IFCC>HCTHENPRINT"SO I’VE PROVED THE 


BETTER PLAYER": PRINT"AGAIN, KLONDIKE BIL 


Lisi 
626 
630 


64G 
656 


669 
676 


6380 
69D 


78D 
716 


729 
730 
7499 


END 

RE MRI IEEE EERIE 
REM DEAL HAND 

PRINT" --> "3 

FORJ=1TOS 

ACI) =INT(RND(1)¥6) +1 
FORZ=1TOS@G: NEXT Z 
IFHA=1ANDJ >2THEN7Z19 

ONA (J) GOSUB759, 769,779, 788,799, 89D 
NEXTJ 

PRINT 

RETURN 

RE MKKKHKHK KKK KEKE RHI II 


69 


798 
768 
778 
786 
79S 
SOG 
31d 
S28 
B36 
349 
33d 
368 
NDA ¢ 
3/76 
88a 
396 
FBS 
P1G 
9208 
P35 
PAG 
P58 
965 
97D 


93S 
POR 


1888 
191g 
1929 
E<<" 


1936 
1946 
19356 
1969 
1676 
1986 
1985 
1996 
11962 


11196 
1126 


PRINT" {PUR}0NE "3; : RETURN 
5 


PRINT" {PUR}TWO "5 ;: RETURN 
PRINT" CPURSTHREE "5; >RETURN 
PRINT" {PUR}FOUR "5 >RETURN 
PRINT" {PUR?FIVE "5; ;-RETURN 
PRINT" {PUR}SIX "3 >RETURN 


REM HEKKKEKKKKKEKKKKEKKE 

REM ASSESS HAND 

PO=9 

REM KEKKKKHKHHKKKKKKKHKKKKKEE 
REM *** FULL HOUSE FIVE *** 
IFA(1)=A(2) ANDA (2) =A(3) ANDA (3) =A(4)A 
4) =A(3) THENPO=1535: RETURN 

REM *#*#* OTHERS *** 
IFA(1)=A(2) THEN PO=POt1 
IFA(1)=A(3) THENPO=PO+t1 
IFA(1)=A(49) THENPO=PO+71 
IFA(1)=A(S) THENPO=PO0+1 
IFA(2) =A(3) THENPO=PO0+t1 
IFA(2)=A(4) THENPO=PO+1 
IFA(2)=A(5) THENPO=PO1 
IFAS) =A (494) THENPO=PO+1 
IFA(3)=A(3) THENPO=PO+t1 
IFA(4) =A(3) THENPO=POt1 
RETURN 

REM HEHHKKHKHKKHHKHEKHKHE 


REM ANNOUNCE HAND 
PRINT" €WHT>" 


PRINT: PRINT" 3 
ITFPO=15THENPRINT">>A FULL HOUSE FIV 


IFPO=6THENPRINT"<<FOUR OF A KIND?>" 
IFPO=4THENPRINT":: THREE AND TWO 


IFPO=S3THENPRINT"*¥* THREE OF A KIND" 
IFPOQ=2THENPRINT")*# TWO PAIR *(" 
IFPO=1THENPRINT"#> A PAIR<#" 
IFPO=@THENPRINT"DEAD HAND..." 
PRINT" {GY 33" 

RETURN 

REM HEEKHHHEHKKKKHHHEH 

REM INITIALISATION 

REM 
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HC=196: REM HUMAN CHIPS 

CC=1906:REM COMPUTER CHIPS 

DIMA(S) 

RETURN 

REM HHKKKKKKKKKKKKE 

REM DELAY 

REM 

PRINT: PRINT"PRESS THE SPACE BAR..." 
GETTS:IFTS<>" "THENI219 
PRINT"{CLRI"2PRINT: PRINT: PRINT 
PRINT"STAND BY, KLONDIKE BILL..." 
PRINT: PRINT” AS I RATTLE THE DICE 


FORT=1TO19909 


NEXT T 
RETURN 
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RED SEDAN II 


Your sponsor has provided you with five cars with which 
to prove your superiority on the road. You'll be told 
the distance you have to cover in the race, and then it 
is all up to you. 


If you manage to complete the distance successfully, 
you'LL be promoted, and a new race will begin. 


Your controls: 


I - up 

M — down 

J — slow down 
K — accelerate 


1@ PRINT"{CLR}"!:POKE53281, 14 

2G POKE659, 255: POKE5S42964,15 

3@ INPUT"{BLU}LEVEL GF DIFFICULTY (1T04)" 
LE 

4@ IFLE<1QRLE>4THEN1G 

5@ PRINT"{CLR}” 

88 Ps="x x x x x x x 
x x” 

199 REM *% LOAD SPRITE DATA ** 

11@ FORX=192T0194 

128 FORY=9T063! READA: POKE3SG72+XX64+Y,AIN 
EXT:NEXT:ME=1 

125 EN=INT(RND(1)*499) +199 

13G V=53248! X=LEX5@ 

1494 POKEV+21, 255: POKEV+29, 255! POKEV+28, 2 
55:POKEV+37, @:POKEV+t39, 2: POKEVt33,2 

158 FORA=2949702947: POKEA, 249: NEXT 

168 Y=159!AB=9:CD=9!EF=@!:GH=9!:1J=6:KL=9: 
MN=@' BB=189: QW=9 

178 POKEV+t49G,6 

188 JIK=PEEK(V+39) AND1 

199 PRINT" {HOME}{CUR DN}{CUR DN}{CUR DN} 
{CUR DN3{CUR DN3{CUR DN}{BLKIY" "TUT 


DEER IE DE RE PERE DEM BEBE BE SEE HERE EMRE AE RAE AEE OM TE 
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296 PRINT"{RVS ON} {YEL} 


toa 
9 


216 PRINT“{BLKICRVS ON)" * "ee 4 oe wee ee 
DOE ETE ES SEG IEE MIE AE SEED AE AMO ME TELE AE LE SEE ad A OFF}" 

226 PRINT"{HOME}{CUR DN}{CUR DN}{CUR DN} 
{CUR DN3{CUR DN}3{CUR DN3{CUR DN}?{CUR DN} 
(CUR DN}{CUR DN?{CUR DN3{CUR DN}{CUR DN} 
{CUR DN3{CUR DN}{CUR DN3{CUR DN3{CUR DN3 


CS A ee I Ne i a gla he SE eA a i LO Lie Me ee 


we ft tet te Woo 
3 


239 PRINT"{RVS ON} {YELL} 


3 
29° PRINE™¢ BER tRVS ON 3 Oe Oe 
eH ERS OFFER" 
25098 PRINT" CHOME} (CUR DN3{CUR DNSC{CUR DN; 
{RED} CAR NO@>{ WHT} "ME 
266 PRINT"{HOME; (CUR DNS{CUR DNC CUR DN; 
{CUR DNS{CUR DN} {CUR DN3{CUR DN {CUR DN} 
{CUR DN}{CUR DNF {CUR DN "RS 
278 PRINT" {HOMES {CUR DN}{CUR DN3{CUR DN} 
"SPC (18) "DISTANCE="EN"KMS" 
389 REM *¥*¥ INPUT ** 


5@2 PRINT" {HOME} ":PRINT" 
{HOME3SPEED: "QW¥10"KPH" 


593 PRINT" {HOME} "SPC (2G) "KMS"INT (MI) 2 IFI 
NT (MI) =ENTHENSS 2a 

544 IFP1=1THENS@6 

595 IFA>XANDACX+15@THENPOKES4273, 14: POKE 
54277, 199: POKES4276, @: POKES4276, 17:P1=1 
566 IFP2=1THENSS9 

5@S IFC>XANDC<X+1 59THENPOKES4273, 14: POKE 
54277,199:POKES4276, @: POKES4276,17:P2=1 
S99 IFP3=1THENS11 

519 IFE>XANDE<X+15@THENPOKES4273, 14: POKE 
54277, 199: POKES4276, 9: POKES4276,17!P3=1 
Sli IFP4=1THEN5S13 

Si2 IFG>XANDG¢X+159THENPOKES4273, 14: POKE 
54277, 199: POKES4276, @: POKES4276, 17:P4=1 
513 IFPS=1i1THEN5S15 

514 IFI>XANDI<X+159THENPOKE54273, 14: POKE 


949277,199:POKES494276,9:POKES4276,17°PS5=1 
31S IFP6=1THENS1? 


316 ITFK>XANDK<S X+ LSSGTHENPOKES4273, 14: POKE 
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3427 
D1? 
2318 
31? 
y27/ 
329g 
BOS 
Joo 
340 
pal 

sod 
370 
atm} 2) 
van od 
£88 


IFJK 
592 


683 
616 
649 
678 
186 
716 
7269 
4 3G 
THEN 
1966 
IOS 
3OIS 
IBBS 
3G16 
IGB2S 


3IG3G 
IGI4G 
IG68 
3G/B 
IOSD 
IBFD 
196 


1269 
3139 


J14¢d 
2166 


7,199: POKES4276, G0: POKES4276,17:P7=1 
GETA®S: IFAS=""THEN6GS 
MI=MI+QW/3G:1TFMISSOaTHONMI=59o 

IFK >XANDK< X+ 20THENPOKES4273, 14: POKES 
, 187: POKES4276, 6: POKES42764, 17 
IFAS="K" THENQW=QWt1! IFQW>25THENQW=25 
IFAS="J"THENQW=QW-2: IFQW< @THENQW=9 
IF QW=9THENSSS 

IFAS="I"THENY=Y-8 

IFAS="M" THENY=Y+8 

IFX>29GTHENX=29G 

IFX< 3OTHENX=39 

IFY< 1 2@THENY=12¢ 

IFY >BBTHENY=BB 

POKEV,X:PQOKEV+1, Y 


JI=PEEK (V+3@) ANDI: JK=PEEK (V+3@) ANDL: 
= 1 THEN6é992 
MI=MI+QW/39: LFEMI >SO99THENMI=599 
IFQW=9THENSSS 
IFAB=GANDRND (1) >. 9THENS@19 
IFCDEGANDRND (1) >. 9THENS199 
IFEF=@ANDRND (1) >. 9THENS299 

IF GH=GANDRND (1) >. 9THENS3@@ 

IF IJ=@ANDRND (1) >. 9THENS499 
IFKL=9ANDRND (1) >. 9THENSS@@ 
IFAB=10RCD=10REF=10RGH=10RIJ=10RKL=1 
5999 

GOTO59¢g 

REM *% POSITION CARS ¥* 
IFAB=@THENSS9S 

IFAB=1THENS94¢ 

AB=1:A=255!3 B=INT(RND(1)*159) +72 
IFB>BBTHENS®@19 

IFB< 1 29THENSS1G 

A=A-QW 

IFA< STHENAB=9: A=G: B= 
POKEV+2,A:POKEV+t3,B 
IFCD=@THENS18¢ 

IFCD=1THENS149 

CD=1:C=255: D=INT(RND(1)¥158) +59 
IFD>BBTHENS199 

IFD< 1 2@THENS199 

C=C-awW 

IFC<S@THENCD=9: C=9: D=o 


14 


J1L/S 
J1Sd 
JIS 
3206 
3229 
3236 
32409 
3266 
32768 
3239 
3I29D 
IBGE 


233268 
I338 


3349 
I368 


5370 
538g 
539d 
5498@ 
542g 
S430 
5449 
5468 
5470 
5480 
549g 
5599 


JUL 
II238 
334 
TIOG 


395709 
3586 


569695 
6BGS 


POKEV+4,C:POKEV+tS,D 
IFEF=9THENS289 
IFEF=1THENS249 
EF=1:6=255:F=INT(RND(1)*15¢0) +5¢ 


IFF >BBTHENS299 
IFF< 1L26THENS2909 


E=E-GQW 
IFE< STHENEF=9: E=@:F=9 
POKEV+6,E:POKEV+t+7,F 

IF GH=9THEN538@2 

IFGH=1 THENS349 
GH=1:-G=255!H=INT(RND(1)*1598) +59 
IFH>BBTHENS399 

IFH< 12ATHENS 399 

G=G-QW 

IFG< @THENGH=@: G=9: H=a 

POKEV+S, G:POKEV+9,H 
IFIJ=GTHENS48¢ 

IFITJ=1THEN5S449 
LJ=1:1=255:J=INT(RND(1)¥159) +59 
IF J >BBTHENS499 

IFJ<12@8THENS492 

I=I-QW 

IFI<@THENIJ=@G: I=9: J=a 

POKEV+t19, 1:POKEV+11,J 
IFKL=9THENS539 

IFKL=1THENS549 
KL=1:K=255!:L=INT(RND(1)*159) +59 
IFL>BBTHENS5S99 

IFL< 126THENS5S 99 

K=K-QW | 
IFK<@THENKL=9!:K=9:L=o 
POKEV+1i2,K:POKEVt13,L 

GOTO5e8e 

REM **X CRASH ¥**¥ 

PRINT" {HOME3}¢{CUR DN3}{CUR DN3{CUR DN 


{REDCAR NO@OCWHT ss "ME+1 


6818 
46528 
5848 
46558 


POKE294@, 242: POKEVt39, 7 

POKES4277,9 
POKES4276, 92 POKES4278, 24@ 
FORT=15TO@STEP-1: POKE5S42764, 129: POQOKE 


94273, 48: POKES9296, T: NEXT 


569605 


POKES4276.96:POKES492/78,90 
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6978 POKE294G, 241 

6980 FORA=1TO1996!:NEXT:POKEV+21, 254 

6999 ME=ME+1: IFME=STHEN6129 

619G POKEV+3, 19: POKEV+t5, 19: POKEV+7, 1@:PO0 
REV+9,19:POKEV+11,19:POKEV+t13,19 

6118 POKES4276, 9: POKES4278, 0: POKES42964, 1 
5:GOTO0139 

6128 POKEV+21,9:PRINT"{CLR}" 

613G IFINT (M1) <=EN/4THENPRINT"{WHTFYOU GO 
NLY COVERED ONE QUARTER OF THE RACE":GOT 

O7 GIS 

6149 IFINT(MI)<=EN/3THENPRINT"{WHT}YOU GC 

NLY COVERED ONE THIRD OF THE COURSE":GOT 
07 G99 

6156 LFINT(MI) <=EN/2THENPRINT" {WHT} YOU O 

NLY COVERED HALF THE DISTANCE. ":GOTO7S9& 
6168 IFINT(MI) >9EN/2THENPRINT"A VERY NICE 
EFFORT. YOU MADE OVER THE" 

6178 PRINT"HALFWAY MARK. " 

7G@6G PRINT:PRINT:IPRINT"{RED} YOUR SCORE I 
Si" INT (MI) 

7G@1G PRINT: INPUT"ANOTHER RACE: "3A 

7G2G IFAS="N"THENPRINT" {CLR} "!:END 

7O3BG ITFAS<>"Y"THENZG1G 

7G4G POKEV+3, 19: POKEV+S, 19: POKEV+?7, 19:PO 
KEV+9, 19: POKEV+11,19:POKEV+13,19 

7G@5@a RUN 

S898 POKEV+21,9:PRINT"{CLR}" 

SG1G PRINT"CWHT}WELL DONE!" 

8826 LE=LE+1 

8G@3G PRINT:PRINT:PRINT" {BLU} YOU WERE PRE 

VIOUSLY ON LEVEL"LE-1 

8949 IFLE=STHENPRINT:PRINT"WELL HOW ABOU 

T THAT. WE CAN’T EVEN" 

S950 IFLE=5STHENPRINT:PRINT"PROMOTE YOU. 

YOU ARE THE WORLD’S " 

8G6@ IFLE=STHENPRINT"NUMBER 1. WELL DONE 
1": GOTO7GSE 

8978 PRINT: PRINT"NOW YOU HAVE BEEN PROMO 
TED TO LEVEL"LE 

SG8G@ POKEV+3, 19: POKEV+tS, 19: POKEV+7,19:PO0 
KEV+9,19:POKEV+11, 1@:POKEV+t13,192 

SG9G PRINT: PRINT: PRINT"HIT ANY KEY TO PU 

LL OUT GF PIT STOP." 
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8995 GETAS: IFAS< >" "THENSG95 

S196 GETAS: IFAS=""THENS1 9G 

S119 PRINT"{CLR}":MI=9: GOTO125 

9990 REM ** SPRITE DATA *% 

9G19 DATAS,9,9,9,9,9,29,9,9,208,9,9,28,1, 

64,20,1,64,42,179,128,42,179,168 

9928 DATAS2, 179,168, 21,85, 84, 42,179,165, 

42,176,169,42,178,128,29,1,44,20,1,644 

9938 DATA2ZG,9,9,29,9,9,9,9,9,9,9,9,9,9,9 

359,9,9,0 

9948 DATAG,S,9,9,9,9,9,9,9,9,9,9,9,9,9,e 
G,6,8,9,9,69,9,9,255,9,9,251,248 

sabe DATAS, 235, 252,09, 202, 252,3,179, 176,98 

, 255, 236, 3, 234, 252,98, 255, 249,9,63,192 

9968 DATAS,9,9,9,9,9,9,9,9,9,9,9,8,9,9,@ 

8,9, 

997G DATAS,9,9,9,9,9,9,9,9,8,9,9,9,8,9,2 

,6,8,8,8,8,8,249,9,3,172,9,15,188,9G 

9988 DATA14, 239,08, 62,171,9,1494,239,9,3,25 

2,8,8,249,9,9,249,9,9,9,9,9,9,8,9,9,5,G 

9998 DATAG,G,9,9,9,o 
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THE ORE-SEEKERS 


In this fascinating simulation, you take on the role of 
a big mining magnate, with hundreds of thousands of 
dollars at your command. 


You start the game with just under $100,000 and — to win 
the game -— you have to use this money to increase it to 
$150,000. You lose if your capital falls below $70,000. 


Although the following explanation may seem pretty 
involved, you'LL find that most of it will be clear once 
you see the program up and running on your screen. When 
you start the game, you'LL see this on your screen: 
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IRON = 506 QO TON ®RISING 
BAUXITE = 711 O TON ®RISING 
COPPER = 916 O TON ®RISING 
LEAD/ZINC = 555 #£O TON -FALLING 
ALUMINIUM - 550 O TON ®RISING 
MAGNESIUM = 562 QO TON ®RISING 
SILVER = 783 QO TON -FALLING 


The top Line tells you have much money you have. Your 
capital drops by half a percent a week, to cover the 
Overheads on your company. Below this you'LL see _ the 
Seven metals you can mine for in the game. Because Lead 
and zinc are generally found in the same ore, they are 
treated as a single metal in this game. 


Next to the name of the metal is a number. This is the 
price, in dollars, that the metal is fetching on the 
market in the current week. The next column -— ‘YOUR 
HOLDINGS' — shows how much of that particular metal you 
have extracted from your mines, and have not sold. Of 
course, all these figures will be zero at the start of 
the game. After the holdings column comes either’ the 
word 'RISING' or 'FALLING'. This indicates the change, 
from week to week, of the price of that metal. 


You'LL discover that the prices’ do not change 
arbitrarily within a single game. One metal may rise 
Slowly throughout the entire game, another may rise 
fairly rapidly from week to week, then start to fall. 
The cost of buying a Lease for a particular mine relates 
to the market price for the metal (so it makes sense to 
buy a lease when the metal price is falling). The cost 
of working a lease 1s also related to the state of the 
market. Watching the development of a metal's price will 
indicate the best time to buy a Lease, the best time to 
work it, and the best time to sell (hopefully just 
before the market for that metal peaks and starts’ to 
decline). 
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gaenpnewwnrereteeweewcnpqoe@aoe@gwae@ewTr @ Fae ewe eae @ Bae & we a & tr 


IRON = 512 0 TON ®RISING 
BAUXITE = 722 0 TON FRISING 
COPPER = 932 O TON ®RISING 
LEAD/ZINC = 510 O TON -FALLING 
ALUMINIUM = 550 0 TON *RISING 
MAGNESIUM = 604 OQ TON ®RISING 
SILVER - 766 O TON -FALLING 


mee mre aewegg@PmPgeeqmwemaewqmeepengcgeqgwae,@Wed@gqeeqeoeqonrnr @F weeqgeae@Pwae@m@& ge & ag = = 


IRON - 518 O TON *#RISING 
BAUXITE - 733 0 TON SRISING 
COPPER - 948 O TON ®RISING 
LEAD/ZINC = 465 0 TON -FALLING 
ALUMINIUM = 550 0 TON ®RISING 
MAGNESIUM = 646 0 TON ®RISING 
SILVER = 749 0 TON -FALLING 


You can see, for example, that LEAD/ZINC fell for the 
first three weeks, then started rising in week four 
(and, in fact, kept.rising throughout this particular 
game) . Note also that your capital is shrinking 
Slightly from week to week. 


From time to time you'LL be given the option of buying 


the lease on a mine, the first step towards actually 
working the mine: 


80 


YOU ARE OFFERED A LEASE 
FOR ALUMINIUM FOR $ 475 
ENTER ‘Bt TO BUY IT, OR 'R* TO REFUSE 


The cost of the lease is related —- quite realistically — 
to the current market price for the metal. If you 
decide to buy the lease, by entering 'B', you'll be 
shown this lease in the next week's computer report: 


YOU HAVE $ 97052.1 IN WEEK 5 


IRON = 530 QO TON ®RISING 
BAUXITE - 755 O TON FRISING 
COPPER = 980 QO TON ®RISING 
LEAD/ZINC = 514 O TON ®RISING 
ALUMINIUM = 550 O TON ®RISING 
MAGNESIUM = 730 O TON #RISING 
SILVER = 715 QO TON -FALLING 


YOU HOLD THE FOLLOWING LEASES: 
ALUMINIUM ONE - 5 

YOU ARE OFFERED A LEASE 

FOR COPPER FOR $ 855 


Having bought leases, you are given the option of 
working that Lease. You'LL see that the name of the mine 
(such as COPPER KING) is followed by a number. This is 
your assayer's estimate of how much ore remains in_ the 
mine. The higher the number, the more ore you are Likely 
to get out of that mine. You can return to rework’ the 
mine aS many times as the number (so COPPER KING can be 
worked nine times, until it is exhausted). The number 
drops by one each time you work the mine, and_ then 
vanishes from your List of Leases when it is exhausted. 
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nwmneneneewwiaene wee @ @ @Peg@eweweweeFteq@teEFe@eegeeaeeeea a = = cw 


meeeenerw ea es ewenweeaqa oweww a ae ww ace ce an GF 


IRON = 536 O TON ®RISING 
BAUXITE - 766 O TON ®RISING 
COPPER = 996 O TON ®RISING 
LEAD/ZINC - 558 O TON ®RISING 
ALUMINIUM - 550 O TON ®RISING 
MAGNESIUM = 772 O TON #RISING 
SILVER - 698 O TON -FALLING 


YOU HOLD THE FOLLOWING LEASES: 
COPPER KING - 9 
ALUMINIUM ONE = 5 


You can only own one mine for each metal at a time (and 
will not, in fact, be offered new Leases for metals you 
already own). However, once a mine is exhausted, you'LL 


possibly be offered, in due course, a new lease for that 
metal. 


If you decide you wish to work a lease, you enter’ the 
first Letter of the name of the metal. Here, I've 
decided to mine for copper: 


WHICH LEASE WOULD YOU LIKE TO MINE 
ENTER FIRST LETTER OF METAL 
('N*' IF YOU DO NOT WANT TO MINE)? C 
YOU WISH TO MINE FOR COPPER 
IT COSTS $ 750 TO WORK THE MINE 
PRESS ANY KEY TO MINE 

OK 
YOU MINED 43 TONS 
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The cost of mining is, as I indicated earlier, related 
to the current market value of the metal. Once you have 
extracted some ore from your mine, it is added to your 
holdings (as you can see here for copper): 


MARKET PRICES YOUR HOLDINGS 


ocoovuvastb &@eomeoermerewaeeae & & os oe amie es SB ce CC =D 


IRON - 542 0 TON ®RISING 
BAUXITE = 777 0 TON ® RISING 
COPPER = 1012 43 TON #RISING 
LEAD/ZINC =~ 602 0 TON ® RISING 
ALUMINIUM = 550 0 TON #RISING 
MAGNESIUM - 814 0 TON FRISING 
SILVER = 681 O TON -FALLING 


epaaornnon@mwoo°o°ououccocoeoecmrg:gceraddaodoeadboacweoroeieamawamwo@Pmeoeqacemaemaamo ww Se See ce ee a ee aD 


YOU HOLD THE FOLLOWING LEASES: 
COPPER KING = 8 
ALUMINIUM ONE = 5 


weoeemeeemoemwwmweoeoereoaeeomwoeoeoergemeororeoe@tmoeoewrwoeoernee- oem aeooeoge = = 
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The real skill in this game comes from buying and 
working leases at the right time, and judging the best 
time to sell. Because your capital is constantly being 
eroded by your overheads, you cannot afford to just wait 
for turn after turn until the market is at its peak [as 
you judge it) before you sell. Note that the highest 
price a metal can reach changes from game to game, _ so 
you will not’ be able to assume that the market will 
necessarily behave the same way from game to game. 


The game ends when you have either reached (or exceeded) 
your target of $150,000, or have allowed your capital to 
fall to $70,000. Here's the end of the demonstration 
game: 


YOU HOLD THE FOLLOWING LEASES: 
COPPER KING - 6. 

LEAD/ZINC LULU = 4 

ALUMINIUM ONE - 3 


WHICH LEASE WOULD YOU LIKE TO MINE 
ENTER FIRST LETTER OF METAL 
('N' IF YOU DO NOT WANT TO MINE)? N 


DO YOU WANT TO SELL ANY ORE (Y OR N) 
OK 

ENTER FIRST LETTER OF METAL NAME? C 

YOU WISH TO SELL COPPER 

YOU HAVE 50 TON 


THE CURRENT MARKET PRICE IS $ 1140 
PER TON 


HOW MANY TON DO YOU WANT TO SELL? 41 


THAT SALE IS WORTH $ 46740 
SALES COMMISSION IS $ 934 
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IRON = 596 O TON ®RISING 
BAUXITE = 876 0 TON *RISING 
COPPER = 1156 9 TON ®RISING 
LEAD/ZINC = 998 9 TON ®RISING 
ALUMINIUM = 550 7 TON *#RISING 
MAGNESIUM = 1170 0 TON -FALLING 
SILVER = 528 0 TON -FALLING 


YOU HOLD THE FOLLOWING LEASES: 
COPPER KING = 6 

LEAD/ZINC LULU = 4 

ALUMINIUM ONE = 3 


YOU HAVE REACHED THE TARGET OF $150000 


And here's’ the Listing so you can climb down into’ the 
pit and become an ‘'ore-seeker': 


196 REM THE ORE SEEKERS 

26 GOSUB2936:REM INITIALISATION 

3H REM KKKXKKKKKKKKE 

496 REM MAJOR LCOP 

38 PRINT" {CLR" 

68 WE=WE+1 

7H CA=INT (99. 5*CA) /1998°;REM HALF PERCENT 
OVERHEAD PER WEEK 

86 GOSUB13519°: REM REPORT 

9G BU=9 

196 IFCA+149S99THENPRINT" {WHT} YOU HAVE RE 
ACHED THE TARGET OF 159,996" > END 

116 IFCAS 7G@G@1THENPRINT"YOU DO NOT HAVE E 
NOUGH MONEY": PRINT"TO CONTINUE IN THIS F 
ITELD" >: END 

126 GOSUBS76: REM OFFERED LEASE 


3G IFBU=1THENS@S 
40 R1=¢G 


158 MI=¢ 
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169 GOSUBY39:REM WORK A LEASE 

176 IFMI=1THENSS 

186 GOSUB1166: REM SELL METALS 

19G IFRND(1)>.9°STHENGOSUBI179@G: REM STRIKE 
296 IFRND(1) >. 9ANDWE>4THENGOSUB18196: REM 
SETBACKS 

2190 R1i=9 

226 GOTQOS9 

230 REM KXKHKKKKKEKK 

249 REM METAL PRICES 

256 PRINT"{CYN}IMARKET PRICES YOUR HOL 
DINGS" 

ZOO CRP RIND + (Eee SSeS Se > SSS Sa Sea ae Se 
2/706 FORT=1TO? 
286 V(TI=INT (C1IG¥#(V(T) +4.5#F(T)))/19 

2°96 IFV(T) <LOTHENF (T)=-F(T) ©V(T)=LOF1 
390 IFV(T) -UPTHENF (T)=-F(T) ©V(T)=UP-1 
3196 PRINT"{ORF "MS(T)5" -CWHTF "VI TI #195 TA 
B(18)5;0(T) "{OR} TON" § TAB(3Q) 5 

326 IFSGN(F(T))=1THENPRINT "(CRED #t YELSRI 
SING" 

S25 IFSGN(F(T)) <>1THENPRINT" CRED}-C{YELGEF 


ALLING" 
336 NEXT T 


3469 GOSUB22690 

359 RETURN 

365 REM KEKKKKEKKKEKEK 
379 REM OFFERED LEASE 

389 IFRND(1)>.4THENRETURN 
399 GETAS: IFAS=""THENSYS 
4690 T=INT(RND(1)#7) +1 

4196 VA=INTC(V(T)+.5)/19) 


A2GB ONTGOSUBE5SG, 649, 679, 689, 6499, 799,71 
438 IFRi>STHENRETURN 


449 PRINT" {PUR}YOU ARE OFFERED A LEASE" 
450 PRINT"FOR "SMS(FL)5;" FOR "3S 9S*VA 
469 GETAS: IFAS< >" " THENS69 

470 PRINT"{GRNJENTER *B’ TO BUY IT, OR ”’ 
R’ TO REFUSE" 

489 GETAS 

49S IFAS<>"B" ANDAS<S 7 "R" THENFSSS 

599 PRINTTAB(12)5 "OK" 
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J1G IFAS="R" THENRETURN 

3298 IFFY. S¥VASCATHENPRINT" {WHT} YOU CANNOT 
AFFORD IT": GOSUB2269: RETURN 

339 BU=1 

Y48 CA=CA-F. SKVA 

S308 RI=VA 

368 ONFLGOSUBS89, 599, 699,619,620, 639,649 

3706 RETURN 

380 IT1i=R1i:RETURN 

2°90 Bi=R1:RETURN 

6900 C1i=R1i:RETURN 

6196 L1i=R1:RETURN 

626 A1L=R1i: RETURN 

639 M1=R1:RETURN 

649 S1=R1:RETURN 

654 FL=1:R1i=1I1:RETURN 

669 FL=2:R1=B1: RETURN 

6790 FL=3:R1=C1:RETURN 

680 FE=4:R1=L1:RETURN 

6°90 FL=S5:R1=A1l: RETURN 

7800 FL=6:R1i=M1: RETURN 

716 FL=72R1=S1: RETURN 

72GB REM KHEXKKEKHKKEKKH 

736 REM WORK A LEASE 

7499 IFI1+Bit+C1+LitAi+mMi+S1=G8THENRETURN 

7540 PRINT" {CYN}WHICH LEASE WOULD YOU LIK 

E TO MINE” 

766 PRINT" {PURSENTER FIRST LETTER OF MET 

AL" 

776 PRINT" (’7N’ IF YOU DO NOT WANT TO MIN 

E>)" 

789 INPUTI&S:FL=¢6 

79G IFIB="N" THENRETURN 

SOO MI=1 

8190 FORK=1TO? 

S20 IFISG=LEFTS(MS(K) , 1) THENFL=K 

8390 NEXT K 

3840 IFFL=STHEN?YSS 

859 PRINT: PRINT"{LT GRN3 YOU WISH TO MINE 
FOR ";MS(FL) 

S60 IFIS="I"THENRI=I1 

876 IFJIJS%="B" THENR1=B1 

S86 IFI$S$="C" THENRI=Cl 
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B7q 
P98 
91g 
P20 
P30 


IFIJS="L"THENR1I=L1 
IFIJS="A" THENR1I=A1 
IFIJS="M" THENR1I=M1 
IF JS$="S" THENR1=S1 
IFR1=9@THENPRINT"{WHT?}YOU HAVE NO MIN 


E": GOSUB2269: RETURN 


946 REM * NOTE IT COSTS MORE TO MINE MET 
AL WHICH IS RISING ON THE MARKET ¥* 


Pad 
935 


IFSGN(F (FL) )=1THENCO=75 
IFSGN(F (FL) )< >1THENCO=45 


9696 PRINT"C{OR3IT COSTS S$"CO#*XIG"TO WORK T 


HE M 


INE": CA=CA-CO 


9798 LX=R1 
788 R1=R1i-1:IFR1<@THENRI=9¢ 


999 REM 


19GB 
1419 
1929 
1936 
1949 
19359 
1969 
1976 
1986 
1996 
11969 
1116 
1126 
1139 
1146 
11359 
1169 
1176 
11894 
1199 
12969 
1216 


1226 
1236 


PRINT"{LT GRNPRESS ANY KEY TO MINE 


GETAS: IFAS=""THENI919 
PRINTTAB(12) 35 "OK" 
ME=INT (RND (1) #5*¥LX) 
PRINT"YOU MINED"ME" TONS" 
O(FL)=O(FL) +ME 
IFJS="I" THENI1=R1 
IFJS="B" THENBI=R1 
IFJS="C"THENCI=R1 
IFJS="_L"THENL1I=R1 
IFIS="A" THENAIL=R1 
IFJS="M" THENM1=R1 
IFJS="S" THENS1I=R1 
GOSUB2266 

RETURN 

REM KXHKHEKKHKKKHE 
REM SELL METALS 
WA=0 

FORJ=1TO? 
WA=WAtTO (J) 

NEXT J 
ITFWA=STHENRETURN 


GETAS: IFAS< >" "THEN1 229 
PRINT: PRINT" {PUR}DO YOU WANT TO SEL 


L ANY ORE (Y OR WN)" 


1246 
123590 


GETAS 
IFAS >" Y"ANDAS<S >" N" THENI 2499 
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12649 
1279 


1289 


PRINTTAB(12)5 "QK" 
ITFAS="N" THENRETURN 
PRINT" {CYN?ENTER FIRST LETTER OF ME 


TAL NAME" 


12969 


1399 
1316 


13290 


1336 
134¢ 


1350 
) 


1369 


INPUTAS: AS=LEFTS (AS, 1) 

FL=0 

FORT=1TO? 
IFLEFTS(MS$(7T) , 1) =ASTHENFL=T 
NEXT T 

IFFL=9THEN1289¢ 

PRINT" ¢CPUR}YOU WISH TO SELL "SMS(FL 


IFO(FL) =STHENPRINTTAB(4) "BUT YOU DO 


N’T HAVE ANY" : GOSUB2269: RETURN 


1376 
Ne" 
1389 


PRINT: PRINT"{WHT}3}YGU HAVE "OQ(FL) "TO 


PRINT: PRINT" {YEL} THE CURRENT MARKET 


PRICE IS S$"V(FL)*#19" PER TON" 


1399 


PRINT: PRINT" {PUR}HOW MANY TON DO YO 


U WANT TO SELL" 


1496 


149196 
HAVE 
14929 
14398 


INPUTT: IFT< 1 THEN14969 

IFT?O( FL) THENPRINT" {WHT} YOU DO NOT 
THAT MANY": GOTO1396 

CO=T#V (FL) 

PRINT: PRINT" {CYNS THAT SALE IS WORTH 


S"CO#19 


14949 


194959 
1469 


19476 
1480 


13530 


SA=INT (CO. 2) 

PRINT"SALES COMMISION IS $"SA 
CA=INT (199% (CA+CO-SA/196))/196 
O(FL)=O(FL) -T 

GOSUB226G6 

RETURN 

REM HHEKKHKHHKEKKKKEE 

REM REPORT TO PLAYER 

PRIN | CCUNS =S SHS SSeS = eee Se 


PRINTSPC (3) 35 


IN WEEK"WE 


1549 


PRINT" {CYN}------------------------ 
GOSUB249:REM METAL PRICES 
GOSUB2269 
IFI1+Bi+CitLitAl+Mi+S1=9THEN1679 
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1596 PRINT"{GRN3YOU HOLD THE FOLLOWING L 
EASES: (OR}" 

1668 IFI1I>STHENPRINT" IRON MAIDEN -"T1 
16196 IFBI?SSGTHENPRINT"BAUXITE BEAUTY -"Bl 
1626 IFCi>STHENPRINT"COPPER KING -"Cl1 
1636 TIFLIS@THENPRINT"LEAD/ZINC LULU -"L1 
1649 IFALSSTHENPRINT"ALUMINIUM ONE -"Al 
16590 IFM1>G@THENPRINT"MAGNESIUM MARVEL -" 


1666 IFS1I>9THENPRINT"SILVER SHINE -"S1 
14670 PRINT"{CYN}------- ccc cre ccc oe eo 


1684 RETURN 

1699 REM X¥K¥X** 

1766 REM STRIKE 

17194 PRINT: PRINT 

1726 PRINT"{WHTSTHERE IS A NATIONAL MINE 
RS’ STRIKE" 

1736 WE=WE+2 

1749 GOSUB22696 

1756 PRINT: PRINT" {WHT}YOU LOSE TWO WEEKS 
7 PRODUCTION" 


1769 PRINT"SO YOUR CAPITAL FALLS 3%" 
1776 GOSUB22695 

1789 CA=INT (97XCA) /199 

17°99 RETURN 

18O9G REM KHXXKKHKK*K 

1819 REM SETBACKS 

1829 T=INT(RND(1)*4) 41 

18390 ONTGOSUB1869, 1899, 1949,1989 

1846 GOSUB226¢ 

18590 RETURN 

18696 PRINT"{WHT3A SHAFT HAS COLLAPSED AT 
ONE OF": PRINT”"MINES. DAMAGE IS $12, 350" 
1876 CA=CA-1235¢0 

1889 RETURN 

1899 PRINT"{WHT3A TUNNEL BLOCKAGE OCCURS 
AT ONE OF" 

19990 PRINT”"YOUR MAJOR MINES. CLEARING IT 
TAKES" 

1916 PRINT"A WEEK, SO MUCH PRODUCTION WA 
> LOST" 


90 


1926 


CA=CA-859:WE=WEt1 


1938 RETURN 

194@ PRINT" {WHT} THREE MINERS WERE INJURE 
D IN AN" 

1958 PRINT"ACCIDENT IN ONE OF YOUR MINES 
1968 CA=CA-123 

1978 RETURN 

1988 PRINT"{WHT}YGUR INVESTMENT IN SOUTH 
ERN MINES" 

19°S PRINT"CONTINUE TO LOSE MONEY...." 
2998 CA=CA-19G-INT(RND(1)¥59) 

2918 RETURN 

2QI2ZA REM KEXKKHHKKHHHHKHIH 

2636 REM INITIALISATION 

2949 POKE53281,9:POKE53289,9¢ 

2658 PRINT"{CLR}" 

2868 REM ARRAYS HOLD METALS, THEIR VALUE 
, FLUCTUATIONS, ORE MINED 

2G7G DIMMHE(7),V(7),F (7), OCF) 

2988 CA=1989D 

299@ I1=@:REM IRON LEASE 

2196@ Bil=@:REM BAUXITE LEASE 

2119 C1=@:REM COPPER LEASE 

2126 Li=@:REM LEAD/ZINC LEASE 

2138 A1L=@:REM ALUMINIUM LEASE 

2149 Mi=@:REM MAGNESIUM LEASE 

215@ S1=@:REM SILVER LEASE 

2168 FORT=1TO? 

2178 READMS(T),V(T) 

2186 F(T) =RND(1):IFRND(1) >. 5THENF (T)=-F ( 
T) 

2198 UP=INT(11@+RND(1)¥*¥49) 

2298 LO=INT(49+RND(1)*19) 

22198 NEXT T 

2226 WE=G 

2238 DATA"IRON", 59, "BAUXITE",79, "COPPER" 
, 98 

2248 DATA"LEAD/ZINC", 69, "ALUMINIUM", 55 
2258 DATA"MAGNESIUM",52, "SILVER", 89 
2268 REM DELAY 

2276 FOR T=1 TO2@@@:NEXT T 

2288 RETURN 
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SQUISHER 
AND SQUASHER 


Squisher and Squasher are two malevolent creatures’ who 
are hell bent on your destruction, as you move around a 
maze trying to survive for as Long as possible. As you 
make your way around the maze, you try to eat aS many 
dots as you can (by running over them). Each dot you run 
over adds to your score. You do not get points just for 
Surviving. 
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As Squisher and Squasher (disguised, in this version, as 
'$' and '?') move in towards you, they Leave a trail of 
new dots. Therefore, if you can fool them into crossing 
areas which you have already ‘eaten clean', you'll find 
more dots to eat. 


Here's the game just after it has begun (you, the _ ‘'H! 
are up in the top left hand corner, Squisher (the '?') 
is down in the bottom right hand corner, and Squasher 
('$') has moved into the second square from the’ top 
right hand corner: 


> Squisher is 1555.6 from human 
> Squasher is 1000 from human 


> Your score is QO HiScore 357 
H e e ° e ° ° it $ 
- « #t . € # € F # 
» # # . # . + # # . 


o « Ft # . . # # F F 


As you can see, the program prints out a distance 
reading, showing you how close the two Little critters 
are to you. 
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A few seconds Later, you have eaten your first few dots 
(85 points worth, in fact) and $ and ? are making their 
way towards you: 


> Squisher is 894.4 from human 
>» Squasher is 806.2 fremr human 


> Your score is 85 HiScore 254 
; eT oe ae 
#t . # #¢ # # . # 
# # . # # # . # 
ee cee! ce 
» H# # # . tf # # . # 
ah Re ae 2 a Fe Bee ae 
Mee ce ce GS oe), Genenies BS -cae e 
. # oa oa So ee eS 
ey ee ie Or ee re! Cars 
ES Be ae a ee He ot 
oo Seete oore HO comcaer vs # . # 


The pece hots up, and you manage to keep on the move, 
exceeding the previous high score as you do so: 


> Squisher is 400 from human 
> Squasher is 300 from human 
> Your score is 442 HiSeore 357 


ae ee ee ee ee ee 

a ae re ae 
Dore pete cethe Mig obintootire ce 
: #¢##.e.. # He # . 
# pueceoer iw ota vie # 


Wed” en Hk eo ee ae ae ‘ 
as oo i 
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However, 'death' is inevitable, and before Long you are 
wiped off the face of the grid: 


> Squisher is 100 from human 
> Squasher is 0 from human 
> Your score is 493 HiSeore 357 


ot ve A A GP wm. IR 

## . # Poor ge of 

seers: wort ‘ ; 

‘ #o# # , ft # # « 
# Sens omer eee 
° ° i ° 
o # # . # ee ; 
SO eae ene ae oe ae # 
Po a AE ge # . # 
Pe et ee ee 2 #t # . # 


e 3 # ° # Qa ° # ° 
Squisher & Squasher have got you! 


You scored 493 


The high score is 493 


Note that the maze changes slightly from game to game, 
and neither you, mor Squisher and Squasher can move 
through the fences (the Lines of # symbols). However, 
while you can only move up, down, right or left, the two 
protagonists can move along diagonals if they choose. 


Your control keys are: 


A - to move up 

Z —- to move down 
, — to move left 
» — to move right 


If you wish to modify the ‘intelligence’ of Messrs. S 
and S, play around with the figures after the RND(1)'s 
in Lines 220, 250, 330 and 360. The higher this number, 
the more ruthlessly Squisher and Squasher will come 
after you. 
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19 
26 
3G 
49 
ra 2 
69 
768 
= 34] 
2) 


REM SQUISHER 
GOSUB7S96: REM 
GOSUB459:REM 
GOSUB299:REM 
GOSUB4596: REM 


IFCI=HIANDC2= 
IFE1=HLANDE2= 


GOSUB669: REM 
GOTO4¢G 


& SQUASHER 
INITIALISE 
PRINT BOARD 
COMPUTER MOVES 
PRINT BOARD 
H2THEN1 9S 
H2THEN1IGS 
HUMAN MOVES 


19696 PRINT"{CYN}SQUISHER AND SQUASHER HAV 


E G 


OT your!" 


119 PRINT: PRINT" {GRNYOU SCORED"SC 
1296 IFSC>HSTHENHS=SC 
1396 PRINT: PRINT"{LT GRN}THE HIGH SCORE I 


S"H 
149 
159 
169 
176 
189 
196 


296 
2198 


2298 
239 
2499 
2508 
269 
2705 
239 
29h 
386 
310d 
329 
330 
349 
338 
369 
3768 
389 
398 
496 
419 
929 


S 


FORZ=1TO29696°: NEXTZ 


RESTORE 
GOSUBS19 
GOTOSE 
END 


REMEKKKKKEHKKKKKKKEKEE 
REM S & S NOVE 


A=C1liY=C2 


IFRND(1)>.7THEN259 
IFC1 >HI THENCi=Ci-1 
IFC1<H1THENC1=Ci+1 
IFRND(1)>.75THEN2389 
IFC2 >H2THENC2=C2-1 
IFC2<H2THENC2=C2+1 


M=A(C1,C2) 


IFM=720RM=360RM=S3STHENC1=X:C2=Y 


A(X, Y)=46 
A(C1,C2)=63 
X=E1!:Y=E2 


IFRND(1)>.7THENS69 
IFE1>H1ITHENE1=E1-1 
IFE1“<H1ITHENEI=E1it+i1 
IFRND(1)>.75THENS9S 
IFE2 >H2THENE2=E2-1 
IFE2<H2THENE2=E2+1 


M=A(E1,E2) 


IF M=720RM=630RM=35THENE1=X: E2=Y 


A(X, Y) =46 
A(E1,E2)=36 
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439g 
44g 


456 
456 


476 
475 


RETURN 

REMEHHKHHKKKKHKHKKKE 

REM PRINT BOARD 
PRINT"{CLR3"2PRINT: PRINT 
PRINT"{YEL}> SQUISHER [5";5 

PRINTINT (1966*SQR ((H1-C1)#¢(H1-C1)+(H 


2-C2)*¥(H2-C2)))/16"FROM HUMAN" 


489 
4385 


PRINT"{YEL3> SQUASHER IS"35 
PRINTINT (196G#35QR ((H1-E1)*# (H1-E1)+(H 


2-E2)#(H2-E2)))/19"FROM HUMAN” 


496 


PRINT: PRINT" {CYN:? >YOUR SCORE IS"SC 


IFHS?>S@THENPRINT"{LT BLUG HISCORE"HS 
PRINT: PRINT: PRINT 

FORC=1TO12 

FORB=1TO1i2 


IFCHR#S(A(B,C))="H" THENZS="{YEL>" 
IFCHRS(A(B,C) )="S" THENZS=" (WHT >" 
IFCHRS(A(B,C) )="?" THENZ$=" (WHT 3" 
IFCHRS(A(B,C))="." THENZS="{LT GRN?" 
IFCHR#S(A(B,C))="#" THENZS=" {RED;3" 


PRINTZS$3 TAB(7) CHR®(A(B,C))5" "$ 
NEXTB 

PRINT 

NEXTC 

RETURN 

REM KKK HHH HHH HHH HH 

REM HUMAN MOVES 

GETAS: IFAS=""THEN619 


REM 

REM 

G=H1i:F=H2 

A(H1,H2)=32 

IFAS=", "THENHi=H1-1: IFHi=@THENH1=1 
IFAS=". "THENH1=H1it+12 IFHL=13THENH1=12 
IFAS="A" THENH2=H2-1: IFH2=@THENH2=1 


IFAS="Z" THENH2=H2+12 IFH2=13THENH2=12 
IFA(H1,H2) =35THENH1=G:H2=F 
IFA(H1L,H2) =46THENSC=SC+H17 
A(H1,H2)=72 

RETURN 

REMIX KKK HK HHH HII 


REM INITIALISE 
PRINT" {CLR>”" 
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778 
7838 
79S 


SIS 
S168 


B25 
S3G 
349 
S30 


S6G 
37D 


83d 
SOR 
96D 
916 
P25 
PSG 
P49 
1))) 
936 
946490 
P78 
936 
99S 
1996 
19819 
1926 
1G3¢G 
1949 
1936 
19649 
1676 


1989 
1996 


POKES3281,9:POKE53289, 19 

REM 

HS=@:REM HIGH SCORE 

DIMA(12,12) 

H1=1:H2=1:REM HUMAN START 
C1=12!:C2=12:REM SQUISHER START 
E1=12:E2=1:REM SQUASHER START 
FORB=1T0O12 

FORC=1TO12 

A(B,C)=46:REM ’.”? 

NEXTC 

NEXTB 

FORB=1TO54 

READC,D 

A(C,D)=35!:REM ’#? 

NEXTB 

FORT=1T025 

ACCINT (RND(1)¥124+1)), CINT(RND(1)¥12+ 
=46 

NEXTT 

A(H1,H2)=ASC("H") 

A(E1,E2)=ASC("#") 

A(C1,C2)=ASC("?") 

SC=9 

RETURN 
DATA3,1,1&, 
DATA1S,2,2,;3; 
DATAS,4,5,8,1,5,3; 
DATAS, 5,9,5,19,5,12,5,9;, 
DATA1,6,3,6,5,;6,12,6,2,8,3,8 
DATAG,S,9,8,19,8,11,8,7,9,12,9 
DATA1,1@,2,19,19,19,5,19,7,19,12,1G 
DATAS,11,7,11,9,11,19,11,12,11 
DATA2,12,3,12,4,12,5,12,11,12,12,12 


READY. 
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MA 'S MAZE 


Here's a program which will get your brain in a sweat, 
as it tests your powers of deduction...and map-making. 


The wily old magician has trapped you in an abandoned 
house which is positively littered with magical and 
valuable items. [To secure your freedom, you must 
transport six different objects into the store room. 
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Easy, you say, until the magician points out the true 
nature of his test. The house is built Like a maze, and 
you do not yet have a map. You have to try and work out 
the ground plan as you go along. You do not even’ know 
where the store room is. To complicate matters further, 
you can only carry one thing at a time. Although you can 
drop any of the objects if you choose, you cannot’ drop 
them in a room which already contains one object. 


Sounds complicated? It is, but the satisfaction you'Ll 
experience when you solve the maze and complete the task 
set by the magician will make it more than worthwhile. 

The program understands the words you type in (after a 


Limited fashion) and can carry out your wishes. Here's 
how the program begins: 


THIS IS MOVE 1 
YOU ARE IN THE LIBRARY 


THERE ARE EXITS TO THE 
EAST 


THE ROOM HOLDS A WILLOW WAND 
YOUR ARMS ARE EMPTY 


WHAT DO YOU WANT TO DO? GO EAST 


As you see, you type in your instructions in the form of 
two words, such as those used here: GO EAST 


Moving east, as instructed, you enter the Audience 
Chamber: 
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THIS IS MOVE 2 
YOU ARE IN THE AUDIENCE CHAMBER 
THERE ARE EXITS TO THE 
SOUTH EAST WEST 
THE ROOM HOLDS A BLACK ACONITE 
YOUR ARMS ARE EMPTY 
WHAT DO YOU WANT TO DO? GET BLACK 
Here you see a 'black aconite’, and decide to pick it 
up, which you do with the command GET BLACK. In fact, 
only the first three letters are needed, so GET BLA 
would have worked as well (and you could have typed in 
GET BLACK ACONITE if you really wanted to do so). 
If you are sensible, you'll be making a map as you work 
out the relationship of the rooms to each other, so you 


can move through the maze with growing confidence. 


You have picked up the black aconite: 


THIS IS MOVE 3 
YOU ARE IN THE AUDIENCE CHAMBER 
THERE ARE EXITS TO THE 
SOUTH EAST WEST 
YOU ARE CARRYING A BLACK ACONITE 


WHAT DO YOU WANT TO DO? GO EAST 
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You soon discover your physical Limitations as you try 
to carry two objects at once: 


THIS IS MOVE 5 
YOU ARE IN THE GLOOMY TURRET 
THERE ARE EXITS TO THE 
SOUTH WEST 
THE ROOM HOLDS A GOLD PIECE 
YOU ARE CARRYING A BLACK ACONITE 


WHAT DO YOU WANT TO DO? GET GOLD 
YOU CAN ONLY CARRY ONE THING AT ONCE 


So, you decide to drop the aconite: 


THIS IS MOVE 6 
YOU ARE IN THE GLOOMY TURRET 
THERE ARE EXITS TO THE 
SOUTH WEST 
THE ROOM HOLDS A GOLD PIECE 
YOU ARE CARRYING A BLACK ACONITE 
WHAT DO YOU WANT TO DO? DROP BLACK 


THIS ROOM ALREADY 
HOLDS A GOLD PIECE 


Even that is not allowed! Soon, however, you come to the 
Store room: 
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THIS IS MOVE 8 
YOU ARE IN THE STORE ROOM 


WHICH HOLDS: 
NOTHING 


THERE ARE EXITS TO THE 
EAST 
YOU ARE CARRYING A BLACK ACONITE 


WHAT DO YOU WANT TO DO? DROP BLACK 


THIS IS MOVE 9 


YOU ARE IN THE STORE ROOM 
WHICH HOLDS: 
BLACK ACONITE 


THERE ARE EXITS TO THE 
EAST 
YOUR ARMS ARE EMPTY 


WHAT DO YOU WANT TO DO? GO EAST 


After much wandering about and carrying, you find the 
store room is becoming gratifyingly full: 


THIS IS MOVE 33 


YOU ARE IN THE STORE ROOM 
WHICH HOLDS: 

BLACK ACONITE 

GOLD PIECE 

SHINING EMERALD 

GLOWING ARTHAME 
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THERE ARE EXITS TO THE 
EAST 


YOUR ARMS ARE EMPTY 


WHAT DO YOU WANT TO DO? WEST 
ONLY GHOSTS CAN MOVE THROUGH WALLS 


However, this still does not give you’ supernatural 
powers. Finally, after sixty moves, you succeed: 


THERE ARE EXITS TO THE 
EAST 


YOU ARE CARRYING A HEMLOCK POTION 


WHAT DO YOU WANT TO DO? DROP HEM 
O OBJECTS TO GO 


YOU'VE DONE IT! 


YOU GOT 6 OBJECTS INTO THE STORE ROOM 
BLACK ACONITE 
GOLD PIECE 
SHINING EMERALD 
GLOWING ARTHAME 
PAPYRUS INCANTATION 
HEMLOCK POTION 
IT TOOK YOU 60 MOVES 


The computer wilt reject any input from you that it does 
not understand. To acquire an object, you tell the 
computer to GET or TAKE it, and to get rid of anything, 
you either DROP it or PUT it. To give up (as if you 
would!}, enter QUIT. GO, followed by NORTH, SOUTH, EAST 
or WEST will move you in the direction of your choice, 
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Here's the Listing so you can take on the challenge 
posed by the magician: 


19 REM MAGICIAN’S MAZE 

28 GOSUBI9GG9G:REM INITIALISE 

30 FORY=1TO19696:NEXTY 

49 PRINT"{CLRI"2PRINT: PRINT 

346 MOVE=MOVE?1 

69 PRINTTAB(2+RND(1)¥6)3"£YEL3 THIS IS MO 
VE"MOVE 

76 PRINT: PRINT"{QR}YOU ARE IN THE "5NS(R 
0) 

SG IFRO< >1THEN169 

96 FLAG=9 

1969 PRINT" {GRN}3WHICH HOLDS: " 

1146 FORZ=1TOS 

120 IFP$(2Z2)<>""THENPRINTPS#(2Z) :FLAG=1 


1396 NEXT2Z 

196 IFFLAG=G@THENPRINTTAB(46) 5 "NOTHING" 
159 PRINT 

166 PRINT: PRINT" {PUR} THERE ARE EXITS TO 
THE: 


178 PRINTTAB(?7) 3 

1896 IFA(RO,1)< >STHENPRINT"NORTH "35 

196 IFACRO, 2) < >6THENPRINT"SOUTH "$5 

2698 IFA(RO,3)<>STHENPRINT"EAST "35 

216 IFA(RO,4)< °>O@THENPRINT "WEST" 

226 PRINT: PRINT 

239 IFRO< >1ANDOS(RO)<>""THENPRINT" CLT RE 
D3}THE ROOM HOLDS A ";0%(RO) © PRINT 

2499 IFMS< >" "THENPRINT"{CYN3} YOU ARE CARRY 
ING A "SMS 

254@ IFMS=""THENPRINT"{LT GRNS YOUR ARMS A 
RE EMPTY" 

269 GOSUBS9S6 

276 GOTO39 

2BG REMHXHKKHHKHKHKKKKE 

299 REM INPUT 

599 PRINT: PRINT" {LT BLUSWHAT DO YOU WANT 
TO DO"S 

3190 INPUTES 

3206 IFLEN(ES) <7YTHENES=ES+" "2 GOTO3S20 

336 FS=LEFTS(ES, 3) 
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3499 IFFS="QUI" THENS6E 

359 IFFS="GO "THENFS=MIDS$(ES,4,3) 

368 IFFS="NOR"ORFS="SOU" ORFS="EAS"ORFS=" 

WES" THENGOSUB46@: RETURN 

378 Z=1 

388 IFMIDS(ES,Z,1)="  "THENGS=MIDS(ES, Z+1 
, 3) !GOT042G 

398 IFZ<LEN (ES) THENZ=Z+1:GO0TO389 

49@ PRINT"I DON’T UNDERSTAND "3E% 

419 RETURN 

426 IFFS="GET"ORFS="TAK" THENGOSUB69G:! RET 

URN: REM *GET’ GR ’ TAKE’ 

436 IFF%="PUT"ORF#="DRO" THENGOSUB68@:! RET 

URN:REM ’PUT’ OR ’ DROP’ 

449 GOTO4ga 

ASG REM KKH HHH HK HHH 

468 REM MOVE 

478 FS=LEFTS(FS, 1) 

48@ IFF$S="N" THEN5S3¢ 

499 IFFS="S"THENS59 

599 IFFS="E"THENS7@ 

Si@ IFA(RO,4)=@THENPRINT"GNLY GHOSTS CAN 
MOVE THROUGH WALLS" 2‘ RETURN 

52@ RO=A(RO,4) : RETURN 

53@ IFA(RO,1)=@THENPRINT" THERE IS NO EXI 

T THAT WAY" !RETURN 

54@ RO=A(RO, 1): RETURN 

559 IFA(RO,2)=@THENPRINT"THAT’S A SGLID 
WALL": RETURN | 

569 RO=A(RO, 2) : RETURN 

S78 IFA(RO,3)=@9THENPRINT"THAT IS IMPOQSSI 
BLE! ":RETURN 

58@ RO=A(RO, 3) : RETURN 

SPA REMIEH HHH HHH HHH HI HH HK HHH 

688 REM GET OBJECTS 

618 IFRO=1THENRETURN 

628 IFLEFTS(G%, 3) < >LEFT#(O%(RO),3) THENPR 
INT"IT IS NOT IN HERE":RETURN 

638 IFMS<>""THENPRINT" YOU CAN ONLY CARRY 
ON THING AT ONCE"!:RETURN 

648 MS$=05 (RO) 

659 o8(RO)="" 

662 RETURN 

SFB REMEKIEHHIH HHH HHH HH HIE 
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686 REM PUT THINGS DOWN 

6990 IFMS=""THENPRINT"YOU’RE NOT CARRYLING 
IT": RETURN 

7968 TFRO=1THEN?YS@& 

7196 IFOS(RO)<>""THENPRINT"THIS ROOM ALRE 

ADY":PRINT"HGLDS A ";0%(RO) : RETURN 

726 OF (RO) =MsS 

7398 MS="" 

“499 RETURN 

758 PLACE=6: FLAG=G 

766 FORZ=1TO6 

7708 YTFPLACE=1THEN?9S 


786 IFP#(Z)=""THENPS(Z) =M$: PLACE=1:M$="" 
79G IFPS(Z)<>""THENFLAG=FLAG#1 
888 NEXTZ 


816 IFFLAG=9THENPRINTTAB(8) 5; "NOTHING" 

8290 PRINT6-FLAG"OQBIJECTS TO GO" 

S390 FORI=-17TO/796: NEXTI 

849 IFFLAG=6THENS7YS:REM END OF GAME, ALL 
OBJECTS LOCATED 

S850 RETURN 

S6G REMKKKKXKKKKKKKKKKHKKKHEKEE 

8790 REM END OF GAME 

S988 PRINT: PRINT" YOU’VE DONE IT!" 

S99 PRINT: PRINT"YOU GOT 6 OBJECTS INTO T 
HE STOREROOM" 

999 FORZ=1TOS 

916 IFPS(2Z)<>""THENPRINTTAB(2) 5P$(2Z) 

9206 NEXTZ 

930 PRINT"IT TOOK YOU"; 

94¢G PRINTMOVE "MOVES" 

958 END 

966 PRINT: PRINT"I DID NOT THINK YOU WERE 
A QUITTER!" 

970 PRINT"YOU SURVIVED FOR"; 


986 GOTOS4S 
POA REMIEKIE HHH KEIICHI IEIEIEFE EEE EIEN 


1996 REM INITIALISATION 

192@ PRINT"{CLR3"?POKE5S3281, 9: POKE5S3289@, 
g 

1938 DIMA(9,4),N%(9),0%(18) ,PS(9) ,M(S) 


1949 RO=INT(RND(1)%8)+2:REM STARTING ROO 
mm 


196359 FORJ=1TO? 


19469 
1G76B 
19389 
1996 
11969 
1116 
1129 
1132 
1149 
1150 
1169 
11/76 
11386 
11°99 
IED 

12966 


1214 
1226 


1239 
1249 
1259 
1269 
1279 


ARBLE HALL", 


1275 


T’S STUDIO", 


1289 
aie 
1285 


"DIAMOND RING", 


1286 
1299 


NEWT’ 


1295 


ONITE", 


1296 


ACLE”" 


13966 


13196 
1326 


13390 
1349 


1323 


"SHINING EMERALD", 


READNS (J): REM NAME OF ROOM 

NEATIJ 

FORJ=1TO18S 

READOS (J) 

NEXT J 

REM DISTRIBUTE OBJECTS 

REM MOSES/OAKFORD SHUFFLE ROUTINE 
FORJ=18TO1L1ISTEP-1 

Z=INT (RND(1)#4¥J) +1 

MS=O% (2) 

OS (2) =O8(J) 

OS (J) =MS 

NEXT J 

MS=""SREM THIS IS OBJECT BEING CARR 


MOVE=¢ 
FORJ=1TO9 
FORK=1TO4 
READA(J,K) 
NEXTK 
NEXTJ 
RETURN 
DATA"STORE ROOM","GLOOMY TURRET", "M 
"LIBRARY", "AUDIENCE CHAMBER” 
DATA"MASTER BEDROOM", "STUDY", "ARTIS 
"MUSICIAN’S QUARTERS" 

DATA" BROKEN CANDLESTICK", "GOLD PIEC 
"BRONZE STATUE" 
DATA"SILVER CHALICE", "MIGHTY SWORD" 
"CRYSTAL GOBLET" 
DATA"SHADOW BOWL" 

DATA"MYSTIC SCROLL", "WILLOW WAND", " 
S TAIL", "HEMLOCK POTION" 
DATA"PAPYRUS INCANTATION", 
"GLOWING ARTHAME”" 
DATA"GLASS FRAGILUS", 


"BLACK AC 
"POWERFUL PENT 


DATAG, 9, 2,9: REM 
DATAS,6,9,1:REM 
DATAG,9,7,9:REM 
DATAS,9,5,9:REM 
DATAG,7,6,4:REM 


Barnes 359,9,5: REI 
ATAS, -? 3: REM 


ROOM 
ROOM 
ROOM 
ROOM 
ROOM 
ROOM 
ROOM 


NOQagSAN 
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1378 DATAS,@,9,7:REM ROOM 8 
1389 DATA3,9,9,8:REM ROCM 9 


READY. 
The names of many of the contents of the rooms came from 


the book The Magicians, by James Gunn (Methuen 
Paperbacks Ltd., London, 1980). 
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CPU PRISONER 


Your Commodore 64 has imprisoned you within its central 
processing unit. When you run the program, you'll see 
yourself in a 3D room with doors facing in various 
directions. Can you find the room which will allow you 
to squeeze through the keyboard to safety? 


Your controls: 


I -— up 

M — down 
J - left 
K —- right 


19 POKE53281, 9! POKE5328¢, 2 

2G PRINT"{CLR}” 

38 POKE659, 255 

19@ GOSUB7999: GOSUBS999: GOSUB5999 

119 GOSUB49a¢ 

129 IFRO=36THENPRINT"{CLR3}C ON GRAD 
ULATIONS!!!" 

125 IFRO=36THENPRINT: PRINT: PRINT"YOU FOU 


ND THE EXIT! ":END 
136 GOTO11¢ 


ADAG REMEKKKKKKKKKKKHKKEKKKEHHKKEK 

49190 REM*XXGET PLAYER COMMANDE** 

AGD2G REMEKKKHKKKKHKKKHKEKKKEKKKKKEKE 

4629 PRINT" {HOME (CUR DN? 

94630 GETZS: IF 2$=" "THENSS39 

9971 IFZS="J"ANDX=8S5SANDY=1463ANDA(RO, 4) <> 
STHENRO=A(RO,4) : GOSUB4899: RETURN 

4672 IFZS="K"ANDX=245ANDY=163ANDA (RO, 3) < 
>STHENRO=A (RO, 3) | GOSUBS8965: RETURN 

4873 IFZS$="T"ANDA=165ANDY=1LS3ANDA(RO,1)<¢ 
>STHENRG=A (RO, 1) : GOSUBS89SG. RETURN 

9G74Q TFZS="M"ANDY=19P3ANDA(RO, 2) < SSOTHENRO 
=A(RO, 2) : GOSUBI894: RETURN 

46930 IFZS$="T"ANDY=153ANDA (RO, 1) =STHENdG14 
SO 
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IFZS$="M"ANDY=19FS3ANDA (RO, 2) =OTHENG14 


IFZS$="J"ANDX=85ANDA (RO, 4) =GTHEND149 
IFZS$="K"ANDX=245ANDA (RO, 3) =STHEND14 


IFZ$="1"THENY=Y-19: POKE2@4@, 194 
IFZ$="M" THENY=7+190! POKE294G, 192 
IFZS="K" THENX=“%4+19!POKE294G, 193 
IFZ$="J" THENX=X- 192 POKE2@49, 192 
IFY< 1SSTHENY=153 

IFY >LPSTHENY=193 

IFX< 65 ANDY=193THENX=65 

IFX< PSANDY=183THENX=75 

IFX< S5ANDY=173THENX=85 

IFX< 1S@SANDY=153THENX=195 

LFX > 255ANDY=193THENX=255 
IFX>245ANDY=183THENX=245 

IFX >235ANDY=173THENX=235 
IFX>2ZiS5ANDY=153THENX=215 

POKEV, X:POKEV+1,Y 

RETURN 

PRINT" {HOME}{(CUR DN3 

RETURN 

REM 

IFX=S5THENX=245: GOTO4999g 
IFX=245THENX=85: GOTO49SG 
TFY=153ANDX=165THENY=193! %=165: GOTO 


IFY=19S3THENX=165!Y=153 
POKEV, X!:POKEV+1,Y 
GOSUB599¢ 

RETURN 

RE MX HHH KKK HK HH HII IEE IE 
REM¥##3-D ROOM VISUAL#** 
REME XK KH KKK HEHE EH 
PRINT" <€CLR}” 


AS(1)="{RVS ON} {WHT}? 
_{RVS OFF3" 
A$S(2)=" (RVS ON} {WHT3D 
_{RVS OFF?" 
AS(3)=" {RVS ON} {WHT3> 


_€{RVS OFF}" 
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287 B 


VOSS 


IBID 


JIG 


ILE 
ered 714) 


AS (4) =" {RVS ON} {WHT}? 
_{€RVS OFF}" 
AS(5) =" CRVS ON} {WHT3> 
_¢RVS OFFS" 
AS(6) =" CRVS ON3{WHT?D 
_{RVS OFF}" 
AS (7) =" CRVS GON} {WHT}? 
_¢€RVS OFF3" 
PRINT" {HOME}{CUR DN}{CUR DN3" 
BS="{CUR RT}{CUR RT}{CUR RT}{CUR 


7{CUR RT?CCUR RT}3" 


JO1G 
33208 
DOB 
3344 


3380 


33/78 
349620 


349419 
24205 
3430 
34499 
9456 
3460 
349795 


PRINTBS; AS (7) 
PRINTBS; AS(6) 


PRINTBS; AS (35) 
PRINTBS; AS(4) 


PRINTBS; AS (3) 
PRINTBS§ AS (2) 


PRINTBS;AS(1) 


RT 


PRINT" {CUR DN3{CUR DN} {CUR DN}{CUR 
DN3¢CUR DN:" 


PRINTBS; AS (7) 
PRINTBS;5 AS (6) 
PRINTBS; AS(35) 
PRINTBS5 AS (4) 
PRINTBS; AS(3) 
PRINTBS; AS (2) 
PRINTBS5 AS(1) 


JIGEA 
L> {CUR 
DN {CUR 
L}+ {CUR 
DN3{CUR 
L> {CUR 


DN} {CUR 
Ls {CUR 
DN} {CUR 
L+? {CUR 
DN {CUR 


BS(1)="{RVS ONFC(GY 


L> {CUR 
DN}?<{CUR 
L> {CUR 
DN? {CUR 
eee 


33 {CUR 
DN3( CUR 
L? {CUR 
DN{ CUR 
LL? {CUR 


DN}<CUR 
L> {CUR 
DN {CUR 
lL? {CUR 
DN? {CUR 


35016 PRINT" CHOME? (CUR 
{CUR DNI}{CUR DN {CUR 
{CUR DNF CCUR DN?{CUR 
7{CUR RT3{CUR RT}{CUR 
3U26 PRINT" CHOMES; (CUR 


+{CUR 


>< CUR 


+{( CUR 


3{CUR 
{CUR 


+{CUR 


DN3{CUR 
DN; (CUR 
RT>{CUR 
RT;(CUR 
RT} (CUR 


RT3}{CUR 


DN3{CUR 
DN {CUR 
RT3{CUR 
RTs {CUR 
RT{CUR 


RT?{CUR 
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DN}{CUR 
DN {CUR 
RT?{CUR 


DN {CUR 
DNF {CUR 
RT?{CUR 


RT? "BS (1) 


DN>{CUR 
DN {CUR 
RT?{CUR 
RTs{CUR 
RT (CUR 
RTI{ CUR 


RT?( CUR 


DN?( CUR 
DNsi CUR 
RTF{ CUR 
RT3}{CUR 
RTF (CUR 
RT>(CUR 


RT?{(CUR 


DN 
DN 
RT 


DN 
DI 
RT 
RT 
RT 
RT 
RT 


{CUR RTFCCUR RT} ICUR 
{CUR RTI}C(CUR RTF{CUR 
{CUR RT} "BS(1) 

30390 PRINT" THOME {CUR 
+{£CUR DN?C{CUR DNF{CUR 
3{CUR DN {CUR DNIICUR 
{CUR RTF{CUR RTICCUR 


7 


5546 PRINT" CHOME?({ CUR 


+{CUR 


+{ CUR 
3;{ CUR 


7{CUR 
3{ CUR 
+{€CUR 


7 {CUR 
+{ CUR 


+{(CUR 
+{ CUR 


LBS (2 


SII7B PRINT" (CUR 


DN {CUR 
DN; (CUR 
Dirls (CUR 
DN? CUR 
RT3{CUR 
RT? {RVS 


DNF (CUR 
DN3<( CUR 
DN? {CUR 
DN? {CUR 
RT3{ CUR 
ON > 


C{RVS OFF" 


53550 BS(2)=" 
35690 PRINT" {HOME} {CUR 


DN? (CUR 
DN}{CUR 
RT}(CUR 


a 


DN;{CUR 
DNF {CUR 
RT3{CUR 
RTILCUR 


RT3${CUR 


RT3( CUR 


RT3{( CUR. 


DN} <CUR 


DN{CUR 
RT{ CUR 
RT;( CUR 
DN; {CUR 
DN3{CUR 
DN3{ CUR 
DN {CUR 
DN3{CUR 
RT}{ CUR 
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DNS{ CUR 
DN(CUR 
DNF{CUR 
RT {CUR 
RTI{CUR 


RT?{( CUR 
RT?{(CUR 


DNZTCUR 
DN?{ CUR 
RT3{CUR 
RTF{RVS 


DN?{ CUR 
DN}{ CUR 
DN {CUR 
DN} {CUR 
DN{ CUR 
RTI (CUR 


DN} {CUR 
DN} {CUR 
RT3<{CUR 
RT{CUR 
RTICCUR 


RT 
RT 


DN 
DN 
RT 
ON 


DN 
DN 
DN 
DN 
DN 
RT 


DN 
DN 
RT 
RT 
RT 


RTS{CUR RT}{CUR 


RTICCUR RTF{( CUR 
RTS{CUR RTF{CUR 
325080 PRINT" CCUR 
RTS{CUR RT}{CUR 


RT3}{CUR RTI TCUR 
33°70 PRINT" {CUR 


RT#{CUR RTITCUR 
RT?{CUR RT} {CUR 


346969 PRINT"(CUR 
RT3{CUR RT}{CUR 


RTsiCUR RTF( CUR 


RT?{ CUR 
RT3{CUR 
RT;{( CUR 
RT (CUR 
RT{CUR 
RTsi CUR 
RT?<CUR 
RT3{(CUR 
RT?{CUR 
RT?i CUR 
RT<{CUR 


RTIC{CUR RTZCCUR 
RT3"BS(2) 
RTIfCUR RTFTCUR 
RTs{CUR RTSTCUR 
RT$"BS(2) 
RTS{CUR RT3{CUR 
RT}{CUR RT?{(CUR 
RT$"BS(2) 
RT?{CUR RTT CUR 
RTS{CUR RTFTCUR 
RT?" BS(2) 


27869 CS(1)="C{RVS ON CGRN3,”””5 (RVS OFF 
CUR DN}{CUR L}¢€CUR L}{(CUR L3{CUR L}<CUR 
ea ae CRVS ONS /CRVS OFFFCCUR DN {CUR Lift 
CUR Lit{CUR Li{CUR Li{CUR Li /W {RVS ON> / 
CRVS OFF {CUR DN} {CUR L3 {CUR L}CCUR L}{C 
UR LZC{CUR Ls? {RVS ON /CRVS OFFFCCUR D 
N3{CUR L3{CUR L}{CUR L}3{CUR L}3<{CUR L}/ 
{RVS ON? /CRVS OFFS" 
23791 IFND=1THENCS$(1)=C$(1)+"{CUR L}{ CUR 
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LMC CUR UP} CCUR Li CCUR LSALCUR UPS{(CUR L 
3{CUR L3’ {CUR UP} {CUR L}’" 


S716 C$(2)="ACCUR UPIANZICUR DNICCUR Li%~ 
CUR DN} {CUR L3%{(CUR DN3{CUR L3%{CUR DN}< 


EEE L3%(CUR DNC CUR LiZCCUR DN 3CCUR DNit 
L3{CUR L3{CUR L3{CUR L3’{ CUR UP} {CUR 


L3;’{CUR UP {CUR L374 CUR UPS {TCUR Li" WtCU 
FR UP3{CUR L3{CUR L3’{CUR UP} (CUR L377" 
2711 IFWD=1THENCS(2)="ACCUR UPFANZCCUR DN 
${CUR L3%{(CUR DN3{CUR L3%{CUR DNI{CUR L3 
®i CUR DNFC(CUR L3%C{CUR DN CTCUR L3%{CUR ODN 
J{CUR DNIICUR L3{CUR L3{CUR L3{CUR L}3’{C 
UR UPFC{CUR Li’{CUR UP;{CUR L3’{CUR UPSIC 
UR L3’Wt{CUR UP3{CUR L3 {CUR L3’{CUR UP3{C 
UR L3’7fCUR DNFCCUR DNIACCUR DNA" 

3726 CS$(3)="ALCUR DNSAC CUR DN3ZICUR DNC 
CUR L}%{(CUR DN} {CUR L3{CUR Li3WZCICUR DNC 
CUR L3%{(CUR DN3{L{CUR L3%{CUR DNI{CUR Li%f 
CUR UP; (CUR UP} {CUR L3{CUR L+{CUR Le{CUR 

L3’{CUR UP} {CUR L3’{CUR UP} {CUR Li’ {CUR 

UPF{CUR Li’ {CUR UP}{CUR L}’CTCUR UPS{CUR 

bee "W 
2721 IFED=1THENCS(3)="ACCUR DNIACCUR Did 
%Zi CUR DN TCUR L}%ZC(CUR DNF{CUR LitCUR LiW 
“i CUR DN} {CUR L3%{CUR DNS CCUR L3% (CUR DN 
;{CUR L3*%{CUR UP} {CUR UFFCCUR Let{CUR Lif 
CUR LitCUR L3’{CUR UP3{CUR L3’{CUR UFZIC 
UR Li3’{CUR UP3{CUR Li’ {CUR UP CCUR Li’tC 
UR UP? {CUR L3’{CUR DNICCUR DN3{CUR DNC 


UR DN} {CUR RTFANCCUR DNI{CUR L3{CUR Lif" 
S898 IFA(RO,4) <>STHENPRINT"{HGOME}<CUR DN 


*{CUR 
+{ CUR 
s{( CUR 
s{ CUR 


DNFTCUR 
DNS {CUR 


DNs TCUR 
RT3{CUR 


+>"CS (2) 
9819 IFACRO, 3) <*79THENPRINT" {HOME} {CUR 


+<( CUR 
(CUR 


+ {CUR 
3{CUR 
+( CUR 
+{ CUR 
+{ CUR 


DN FT CUR 
DN {CUR 
DN; ¢{ CUR 
RTI{ CUR 
RT3(CUR 
RT?( CUR 
RT?¢(CUR 


DN} LCUR 
DN3 {CUR 
DN} {CUR 
RT}?{CUR 


DN ST CUR 
DN {CUR 


RT( CUR 


RT (CUR 
RT?{ CUR 
RT3{CUR 
RTSi CUR 
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DNF (CUR 
DNFTCUR 
RT( CUR 
RT({ CUR 


DN;tT CUR 
DNF {CUR 
RT?{CUR 
RTS (CUR 
RT C{CUR 
RT(CUR 
RT {CUR 


DN {CUR 
DN S{ CUR 
RT;( CUR 
RT>{CUR 


DNFCCUR 
DN TCUR 
RT? (CUR 
RT3{ CUR 
RT?{CUR 
RTC CUR 
RTs (CUR 


DN 
DN 
RT 
RT 


DN 
DN 
DN 
RT 
RT 
RT 
RT 
RT 


{CUR RTFICUR RTFL{CUR RTL CUR RTI {CUR 
+{CUR RTIICUR RT F"CH(3) 
3826 IFA(RO,1)<>98THENPRINT" {HOME} {CUR 


7{CUR 
7{CUR 


+{ CUR 
+ (CUR 
+t CUR 
+{ CUR 


DNC CUR 
DNF {CUR 
RT?< CUR 
RT?(CUR 
RT<(CUR 
RTI (CUR 


DN (CUR 
DN I CUR 
RTC CUR 
RT?( CUR 
RT}{CUR 
RTFi CUR 


DN3{CUR DN FTCUR 
DNFTCUR DNSTCUR 
RT}{CUR RTF{CUR 
RTS( CUR RTFLCUR 
RT}{CUR RTFCCUR 
RT3"CH (1) 


RT 


DN 
DN 
DN 
RT 
RT 
RT 


IS3d 
6490S 


681g 
6929 
69308 
6946 
6936 
O68 
og /G 
693g 
6996 
6196 
6119 
2 
61260 
14 
6139 
Ish 
6149 
12 
6159 
13 
6160 
14 
6176 


15 
61389 


618g 


M 1? 
52008 


18 
6219 


9 
6226 


RETURN 
REMEKRKEHHKEHHKEKKHEKKEHKEKEHEH HEE KHEKE 


REMHEHHKXKHKHXKED A T AKKKKREKEKKE 
REMEKHEKKEKKEKKEKKKKHHHKHKEKKH KEE 


DATAS,8,2;,;9,95,9,9,9,9,4:REM ROOM 1 
DATAS,9,3,1,9,9,9,9,9,9:REM ROOM 2 
DATAS,19,9,2,9,9,9,9,9,9:REM ROOM 3 
DATAG,11,9,9,%9,9,9,8,%9,9:REM ROOM 4 
DATAG,9,6,9,9,9,9,9,9,9:REM ROOM 5 
DATAG,12,7,5;9,9,9,9,9,8:REM ROOM 6 
DATAG,9,9,6,9,9,9,9,9,9:REM ROOM 7 
DATA1,9,9,9,9,9,9,9,9,@:REM ROOM 8 
DATAS, 29,19,8,9,9,9,9,8,9:REM ROOM 
DATA3,149,11,9,;9,9,9,9,8,@9:REM ROOM 
DATAG,16,12,19,9,9,9,9,9,@:REM RooM 
DATA6,17,13,11,4,9,9,9,98,@:REM ROOM 
DATAS,18,9,12,9,98,9,9,9,@:REM ROOM 
DATA19,21,15,9,9,9,9,8,9,8:REM ROOM 
DATAS,@,16,14,9,9,8,9,9,9:REM ROOM 


DATA11,21,9,15,9,9,9,9,9,9:REM ROOM 


DATA12,27,18,16,9,9,9,9,9,98:REM ROO 


DATA1I3,28,9,17,9,9,9,9,9,9:REM ROOM 


DATAG,9,29,9,9,9,9,49,9,9:REM ROOM 1 


DATAS, 23,9,19,9,9,9,9,9,9:REmM ROOM 
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DATA14, 22,16,9,9,9,9,9,9,9:REMN ROOM 
DATA21,25,9,9,9,9,9,9,9,9:REM ROOM 
DATA2G,9,9,9,9,9,49,98,9,9:REM ROOM 2 
DATAS, 29,25,9,9,9,9,9,9,8:REM ROOM 
DATA22,9,9,24,9,89,9,9,9,9:REM ROOM 
DATAD,9,27,9,9,9,9,9,98,9:REM ROGM 2 
DATA17, 9,9, 26,9,9,9,9,9,9:REM ROOM 
DATA1S,9,9,9,9,9,9,9,9,9:REmM ROOM 2 
DATA2Z4, 32,9,9,8,9,%9,9,9,9:REM ROOM 
DATAG,33,9,9,9,9,9,9,9,9:REM ROOM 3 
DATAS, 34,35,9,9,9,8,9,9,8:REM ROOM 
DATA29,9,33,9,9,9,9,9,9,8:REM ROOM 
DATASS,9,34,32,9,9,9,9,9,9:REM ROOM 
DATA31,9,9,33,9,9,9,9,9,9:REmM ROOM 
DATA31,9,9,36,9,9,9,9,9,9:REM ROOM 


DATAS,@,35,9,9,9,9,9,9,8:REM ROOM 3 


REMEKHKHKKKEKHKEK 
REMKXXXSET -UPHEX 
REMKKKEKKHEKKHKKKE 

DIMA (36,19) ,M$(26) , TS(20) 
RO=1 

FORB=1TO36: FORC=1TO19 


READA(B,C) -NEXT: NEXT 
RETURN 


RE MEK KKH HEH EKEKKEHKHKKKHKKKKE 


REMKXXKXKXKXSPRITE DATAKKHKKEXKE 
REM KH HK HK HHI KKH HK HK HK 
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SI3G REMKXKXXKHXKLOGAD SPRITE DATAXKHXXHX* 
S949 POKE2949,192 

8958 FORX=192T0194: FORY=9T063: READA: POKE 
K¥644Y, ALS NEXT! NEXT 

S969 V=532498! POKEVt21, 1: POKEV+39, 15: POKE 
V, 165: POKEVt1,193 

8976 POKEV+23, 1:POKEV+t29, 1:POKEV+28,1:P0 
KEV+38,6:POKEVt37,2 

8975 X=165!:Y=193:RETURN 

SASH REMKXKHK KKH KHKKKKKKHKKKKEKKKEE 

$198 DATAG, 252,9,1,85,98,15, 255, 192,2,165 
,9,1,165,98,19,169,9,9,1469,9,2,168,0 

8118 DATAG, 168,9,3,255,9,3,254,9,3,259,9 
,3,2549,9,3,259,9,1,86,9,3,259,9,3,3,9 
8120 DATA3,3,9,1,3,9,5,1,9,9,5,9,9 

S290 DATAG, 255,9,9,85,9,3,255,192,1,194, 
G9,1,73,9,1,178,128,1,168,9,98,179,9 

8219 DATAG, 168,9,2,255,9,2,255,9,2,255,9 
52,255,9,2,255,9,2,1949,98,3,255,9,3,3,8 
822G DATAS,3,9,3,1,9,1,1,64,1,64,9,9 
83998 DATAG, 252,9,1,85,9,15,255,192,1,85,- 

G@,1,85,9,1,85,9,1,85,9,9,84,9,4,168,9 
8319 DATAS, 255,9,3,255,9,3,255,9,3,255,90 
23,255,9,1,85,9,3,255,9,3; 3, G,3,3,¢G 

S329 DATA1, 1, Sg, 1,1,8,1,1,9,8 

19999 PRINT"{CHOME}<CUR DN3{RVS ON}SORRY, 
BUT THIS DOOR NEEDS THE SILVER KEY{RVS O 
FF}" 

19@G19 FORTT=1TO2996: NEXT 

19949 IFA(RO,3)=12THENED=9 

19969 RETURN 


READY. 
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\ 
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YOUR SCORE TO THIS FRAME IS 0 


THIS IS FRAME 1 BALL 1 


00 0 0 


STAND BY TO BOWL 


After a short delay, of random duration, two magic words 
will appear beneath the words STAND BY TO BOWL: 


BOWL NOW 
The more quickly you react to this message, by hitting 


any key, the better your bowl will be. As you can see, I 
did not do too well with my first ball: 


THIS IS FRAME ji BALL 1 


=> SPARE <- 
00 0 0 ONE PIN DOWN 


However, I did a Little better in the second frame: 
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YOUR SCORE TO THIS FRAME JS 2 


THIS IS FRAME 2 BALL 1 


0000 


-> SPARE <- 
6 PINS DOWN 


And in the third frame, I got a strike! 


YOUR SCORE TO THIS FRAME IS 8 


THIS IS FRAME 3 


>> STRIKE << 


Naturally, following the rules of bowling, the score I 
obtained in the next frame was doubled: 
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YOUR SCORE TO THIS FRAME IS 18 


THIS IS FRAME 4 BALL 2 


000 0 


-> SPARE <= 
4 PINS DOWN 
PLUS 4 Jf 


But I utterly disgraced myself with the first ball 
the fifth frame: 
YOUR SCORE TO THIS FRAME IS 26 


THIS IS FRAME 5 BALL 1 


000 0 


> GUTTER < 
O PINS DOWN 


I only managed a score of 43 for the round: 


THAT'S THE END OF THE SET 


YOUR SCORE WAS 43 
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in 


When you're ready to beat my score, which you should 
find easy to do, here's the Listing which will help you 


do it: 


19 REM TEN-PIN BOWLING 
26 GOSUB759:REM INITIALISE 

38 FORF=1TO1ig9 

46 FORB=1TO2 

58 IFB=1THENGOSUB289:REM SET UP PINS 
69 GOSUB34G:REM PRINT PINS 

76 GOSUB479:REM BOWL BALL 


88 GOSUB349 
79 CO=9 


196 
119 
126 
136 
149 
66 


FORJ=1TO19 

IFAC J) =4STHENCO=COt1 

NEXT J 

IFCO=STHENPRINT,"> GUTTER <" 
IFTS=FTHENPRINT, ">> STRIKE <<": GOTOL 


IFCO=196THENPRINT, "2: ALL PINS DOWN : 
IFCO>@ANDCO<K 1S@THENPRINT, "-> SPARE <- 


IFCO=1THENPRINTTAB(15) "ONE PIN DOWN" 
IFTS< SFANDCOX > LANDCO<K LSTHENPRINT TAB 
CO"PINS DOWN" 

GOSUBS49¢ 

NEXT B 

SC=SC+CO 

IFTS=F-1THENPRINT, "PLUS"CO"!!":SCc=SC 
TS=99: GOSUBS49 

NEXT F 

PRINT" THAT’S THE END OF THE FRAMES" 
PRINT: PRINT"YOUR SCORE WAS"SC 

END 

REM KEKHKKEKKHEKKE 

REM SET UP PINS 

FORJ=1TO1@¢ 

AlI)=?79 

NEAT J 

RETURN 

REM HEKKKKKKHEE 

REM PRINT PINS 

PRINT" CCLRI" > PRINT: PRINT 


122 


36g 
37g 
38g 
381 
390 
4a¢ 
Si 
419 
Ye eee 
42g 
») 

439g 
44g 
45g 
46G 
47g 
48g 
49¢ 
Sag 
51g 
52g 
53g 
549 
55g 
56g 
S78 
58g 
S99 
69g 
61G 
628 
439 
645 
659 
660 
67D 
689 
698 
FOE 
F1G 
722 


738 
74g 


PRINT" YOUR SCORE TO THIS FRAME IS"SC 
PRINT: PRINT" THIS IS FRAME"F3; 
IFTS=99THENPRINT" BALL"B 

IFTS< >99THENPRINT 

PRINT: PRINT" {YEL?" 


PRINTTAB(13) CHRS(A(19))5" "SZ CHRB(A(9 
"SCHRS(A(S))5" "SCHRB(AC?) ) 

PRINTTAB(149) 5CHRB(A(6))5" "SCHRB(AC(S 
"3 CHRS (AH) ) 

PRINTTAB(15) ;CHRS(A(3))5" "SCHRB(AC2 


PRINTTAB(16) 3 CHRS(A(1)) 

PRINT! PRINT 

RETURN 

REM XXXII HIHIHH HHH 

REM BOWL BALL 

PRINTTAB(4) "STAND BY TO BOWL":PRINT 
GETG#! IFGS< >""THEN4SSS 
FORR=1TOS@S+RND (1) ¥Z 

NEXTR 

GETG#! IFG#< >" "THENS@S 
PRINTTAB(7) "BOWL NOW" 

N= 

N=N+.7 

GETGS: IFGS=""THENS59 
IFB=1ANDRND (1) >. 9ANDN< 3S THENN=19 
IFN< 2GANDB=1 THEN679 

IFN< 29THENT=1@ 

IFN> 1 9ANDN< SS@THENT=5+ INT (RND (1) ¥4) 
IFN>29ANDN< 42THENT=2+INT (RND (1) ¥5) 
IFN>41 THENT=INT(RND (1) ¥4) 
FORK=1TOT 

IFRND (1) >. 1THENA(K) =45 

NEXTK 

RETURN 

REM * STRIKE 

FORK=1TO19 

A(K)=45 

NEXTK 

TS=F 

B=2 

RETURN 

REM XHXKKHKHHKHKKKKKK 
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756 REM INITIALISATION 

768 PRINT" {CLR}" 

776 POKES3281,9:POKE53286,8 
788 DIMA(19) 


799 SC=G8: REM SCORE 
S99 Z=5Gg 

S18 TS=99 

8206 RETURN 

S3G REM KKXHKEKK 

346 REM DELAY 


8590 FORL=17T01396: NEXTL 
S68 RETURN 


READY. 
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TELEPATHY TESTER 


This relatively simple program is a good one to have on 
tap for when your friends come around, and you want to 
show them the power of your computer. 


Jo... TT REALLY 
WORKS I... . 


onete 


When the program is up and running, the computer 
expLains the situation: 
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Now I'm going to test your ability at 
doing Math in your head...and I'll 
demonstrate my telepathic powers 


I'll give you a series of instructions 
which I want you to carry out... 


After you've followed each instruction 
you just press any key =- and I'll give 
the next instruction to follow 


Once’ the preliminaries are out of the way, the ‘'tele— 
pathy testing’ gets underway: 


First, I want you to think of a number 


oeeseoeeteeese3ert @eoeeeseeee#*orneu5neee.s#We#e#?#ee8%e ee#e%e8@#e#e8e#8 se © « @ 


Now multiply that by five... 


eoeoeoeo0eeseo0e3eosoe3eeeoe3sweec30e3#s#s8tse@ee3nree ee 8 &@ @O eH Hh rhlUh hr hUh hl hl hl thls 


Add six to this 


oeeoeso0estecs353o5q@e*eeee3e5qoe0eae9#7e83#e?ee8eeee8e8ee8e ee @hcehhUhHhmhUrOFhUhhUhhUhFlt 


Multiply the answer you've got by four 


oeezs0aee34e+eoee%e5345oteetee34uee3we#5#eeee ee @ eeeeoeoe#¢@ 8 ¢ 08 @ @ + #* & 


Add nine to this 


eeeeeeeeeergg#eeeeeeseeteesceeeeee#ee#ee#ee88kee8t8? e¢6e@m6mUchrmhUCUcCOmChUCUCcPCUCUMOrUCUh HP HOH HO HF FY & 


Now multiply this by five 


Now tell me the number you've 
ended up with... 


2 465 
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Your number is 3 


eeooeo0ae0ecooesegqeo0nsv¢6080e0e0808e0e80#e¢08ee08088 0806080080080 0880 0888 8084 


But there is more to the program than that. After a 
brief pause, so your guests can relax from the 
unaccustomed mental effort, a second ‘test' begins: 


Now here we go with another one to 
test your mental powers again... 


I want you to write down three numbers 
which are each less than 10... 
ceooeeecoeeand greater than zero 

Don't let me see them! 


Now multipiy the first number by two 


Add three 


Multiply this by five... 


eoeeedsocreeee#eee#2#%#?e%e#8??es%?e?ege@es:Cc?ee#ee?ee%?ee%#%eef:@ee8e8f 8 8e¢ 8 @mUchOmUCcCOrmhUCcOCmhUCUCcCOrhhlUhhUh hh 


And next add seven to this... 


Time now to add in your second number 


Double the number you've got so far 


eoeoeoeeoesee¢eoecscoeeesee2ess9sssedspedgedaesvetcestseteeeteeoeeqgeeeeeoegeed¢ee%e#e#e#%#ee#8t?ee@ 


The next bit is easy - just add three 


Now, a hard bit...multiply by five... 
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Another easy bit...add the third number 


Give me the number you've ended up with 
2? 878 3 


Your first number was 6 


Your second was 4 


And your third was 3 


A polite farewell, and the program is over: 


Thanks for stretching your brain with 
me, Math Champeen...See you again... 


Here's the Listing to amaze your friends: 


19 REM TELEPATHY TESTER 
2G PRINT"{CLR}"*2 PRINT: PRINT 
38 PRINT"NOW I’M GOING TO TEST YOUR ABIL 


ITY AT" 

490 PRINT" DOING MATH IN YOUR HEAD...AND 
0 ae OS 

38 PRINT" DEMONSTRATE MY TELEPATHIC PO 

WERS" 


646 GOSUBS89S 

78 PRINT"I’LL GIVE YOU A SERIES OF INSTR 
UCTIONS" 

38 PRINT"WHICH I WANT YOU TO CARRY OUT.. 


?9 GOSUBS89 
196 PRINT"AFTER YOU’VE FOLLOWED EACH INS 
TRUCTION" 
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119 
gg te 
129 


PRINT" YOU JUST PRESS ANY KEY - AND I 
GIVE" 
PRINTTAB(4)35 "THE NEXT INSTRUCTION TO 


FOLLOW. " 


1369 


146 
159 


GOSUBSS8SH 
GETAS: IFAS< >" " THEN14S6 
PRINT"FIRST, I WANT YQU TO THINK OF 


A NUMBER" 


160 
176 


189 
196 


28GB 
216 

BY 
226 
236 
240 
23590 
268 
2/76 
236 
296 


38D 
319 
326 
330 
3465 
3509 
369 
378 
386 
396 
46D 
4196 


GOSUBS/7S 
PRINT"NOW MULTIPLY THAT BY FIVE..." 


GOSUBS?7&S 
PRINTTAB(1@6)3; "ADD SIX TO THIS" 


GOSUBS76 

PRINT"MULTIPLY THE ANSWER YOU’VE GOT 
FOUR" 

GOSUBS7S6 

PRINTTAB(16)3; "ADD NINE TO THIS" 


GOSUBS?7S 
PRINT"NOW MULTIPLY THIS BY FIVE" 


GOSUBS?79 

PRINT"NOW TELL ME THE NUMBER YOU’ VE" 
PRINTTAB(19); "ENDED UP WITH..." 
PRINT". 2.22 c¢ce ccc ecco see ee oe oo sos 
ae nece "SPRINT 

INPUTNUMBER 

NU= (NU-165) /19¢9 

GOSUBS389 

PRINTTAB(196)5; "YOUR NUMBER IS"NU 
GOSUBS8S 

GOSUBS99 

FORJ=1TOS@G 

PRINTTAB(J)5 ">" 

FORT=1LTO1LSGS: NEXT T 

NEXT J 

GOSUBS889¢ 

PRINT"NOW HERE WE GO WITH ANOTHER ON 


E TO" 


426 


430 


449 
45g 


PRINT" TEST YOUR MENTAL POWERS AGAIN. 


GOSUBS8S 
GETAS: IFAS< >" " THENS4SD 
PRINT"I WANT YOU TO WRITE DOWN THREE 


NUMBERS" 
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4639 PRINT" WHICH ARE EACH LESS THAN 129.. 


4790 PRINT"..ccec2e2e2AND GREATER THAN ZER 
eer ewe a er a 

48960 PRINTTAB(S); "DON’T LET ME SEE THEM!" 
49°90 GOSUBS?7S6 

3988 PRINT"NOW MULTIPLY THE FIRST NUMBER 
BY TWO" 

316 GOSUBS879¢ 

3206 PRINTTAB(12)5 "ADD THREE" 

330 GOSUBS7S 

346 PRINT"MULTIPLY THIS BY FIVE" 

230G GOSUBS7G 

366 PRINT"AND NEXT ADD SEVEN TO THIS..." 

376 GOSUBS?/S 

3890 PRINT"TIME NOW TO ADD IN YOUR SECOND 
NUMBER" 

3°78 GOSUBS7S 

6998 PRINT" DOUBLE THE NUMBER YOU’VE GOT S&S 
O FAR" 

616 GOSUB8S7S5 

626 PRINT"THE NEXT BIT IS EASY - JUST AD 
D THREE” 

639 GOSUBS7¢ 

646 PRINT"NOW, A HARD BIT...MULTIPLY BY 


FIVE..." 
6398 GOSUBS7¢2 


669 PRINT"ANOTHER EASY BIT...ADD THE THI 
RD NUMBER" 

678 GOSUBS7S9 

630 PRINT"GIVE THE NUMBER YOU’VE ENDED U 
P WITH" 

696 INPUTNO 

768 NO=NO-235 

“16 GOSUBS389 

726 A=INT (NO/ 199) 

239 B=INT ( (NO-1GG*A) /19) 


7499S C=NO-19*B-196%*A 
7386 PRINT: PRINT 


766 PRINT" YOUR FIRST NUMBER WAS"A 
“78 GOSUBSS8S 


789 PRINTTAB(S) 3; "YOUR SECOND WAS"B 
796 GOSUBSSS 
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SOG PRINTTAB(19)5 "AND YOUR THIRD WAS"C 
819 GOSUBS8¢S 

8296 PRINT"THANKS FOR STRETCHING YOUR BRA 
IN WITH" 

8398 PRINT"ME, MATH CHAMPEEN...SEE YOU AG 
AIN..." 

Se Fe EIN © ratasts om be fae o) 60 wire) cei herin| artartal ie ese aa cae ene eee a rae 


859 GOSUBS8¢ 


349 END 
870 GETAS: IFAS=""THEN879 


SSO PRINT". .c020c0222 ecco eee ene oe wee ooo 


8°99 FORT=1TOISGSGOG: NEXT T 
P99 RETURN 
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INVISIBLE 
BRICKLAYER 


Here's a snappy variation of an old favorite arcade 
game. You have five balls, and with them you have try 
and knock down all the bricks in the wall. 


You gain five points for each brick you hit. 


When one stage has been completed, you'll get a free 
man, bonus points, and an extra Layer of bricks. There 
are five stages in all. You have the option of turning 
the bricks invisible, if you Like a real challenge. 


Your controls: 


A - to move left 
L —- to move right 
S & K — these double your speed 


V1=54296!W1=54276:A1=54277 

POKEV1, 15:POKEW1,17 

H1=54273:H2=54272 

POKEH1,@:POKEH2,@9 

INPUT"{CLR}DO YOU WANT INVISIBLE BRICK 
Sys 

6 YS=LEFTS(¥$,1) :IFY#<>"Y"ANDYS< >"N" THEN 
5 

14 HI=9:N=1:2=320: POKE659, 255 

15 N=1!:2Z=320:SC=G:M=1 

16 PRINT" {(CLR}{BLU}"!:POKE53289, 5: PUKES32 
81,9 

17 A=25! B=1924:C=15! D=19!E=9: BBS=" 

C@C@2C2CCCCCCCEZECCG" 1EE=55296 

1S IFY$S="Y"THENSSEG 

19 PRINT" {HOME} {CUR DN3{£CUR DN}<{CUR DN}< 
CUR DN} {CUR DN} {WHT3"BBS: PRINT" {RED} "BBS 
>PRINT" (GRN}"BBS:PRINT"{OR} "BBS 


Oath WAN e 
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2¢ IFN>=2THENPRINT"{HOME}{CUR DN}{CUR DN 

{CUR DN}{CUR DN?{CUR DN} {CUR DN}<CUR DN 

{CUR DN}{CUR DN} {YEL} CGE 

@@@CCCCCGE "!Z2=1929 

21 IFN>=3THENPRINT" {HOME} {CUR DN3{CUR DN 

7{CUR DN}{(CUR DN}{CUR DN3{CUR DNI{CUR DN 

{CUR DN} {CUR DN3{CUR DNF(CYN} 
CCCCCCCCCCCCCGGE "!:2=1899 

22 IFN>=4THENPRINT" {HOME} (CUR DN}{CUR DN 

3}(CUR DN}{CUR DN3{CUR DN}<{CUR DN}{CUR DN 

3{CUR DN} {CUR DN}{CUR DN3{CUR DN} {GRN} 

CPCCCCCCCCCCEEGS "22=26469 

23 GOTO12¢ 

24 PRINT"{HOME} (CUR DN}{CYN} BALL":PRIN 

T” NUMBER": PRINT" "M!PRINT"{ PUR} @CCeCE 

{CUR DN}{CUR DN} {CUR DN}<( CUR DN}{CUR L3¢ 

CUR L}{CUR L3?(CUR L}<{CUR L}{CUR L}@CCECE 

25 C=C-1:D=D-1 

26 IFPEEK (B+C+49*D) =64THENPOKEBtC+49%D,3 

2: GOSUB1999: GOTO43 

2? IFD=3THEN63 

28 POKEBt+C+4Q9¥D, 91: POKEEE+C+49X%D, 12: GO0SU 

B86 

29 POKEB+C+49X%D, 32 

3G IFC<CLLTHENGOSUB299@: GOTO32 

31 GoTO25 

32 C=C+1:D=D-1 

33 IFPEEK (B+C+4@X%D) =64THENPOKEB+C+4Q9%D, 3 


44 GOSUB1GSSG: GOTO6G3 
94 IFD=3THEN63 


35 POKEBt+C+4OX%D, 1: POKEEE+C+4QG%D, 12: GOSU 
BS4 

36 POKEB+C+49xXD, 32 

37 IFC}28THENGOSUB2996: GOTOZ2S 

38 GOTO32 

39 C=C-1:D=D+t1 

46 IFPEEK(B+C+4@*D) =SS5THENGOSUB3999: GOTO 
25 

41 IFPEEK (Bt+C+4@*D) =73THENGOSUB3996: GOTO 
32 

42 IFPEEK(B+C+49X%D) =64THENSC=SC+5?: GOSUBL 


GAD 
43 IFD=19THEN?Y 1 
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44 POKEBt+C+49*¥D, 81: POKEEE+Ct+49*D, 12: GOSU 
B86 

45 POKEBt+Ct+49X¥D, 32 

46 IFCCS LITHENGOSUB2996: GOTO4S 

47 GOTUaS3s 

48 C=Cti:D=Dtl 

49 IFPEEK (B+C+49*D) =S5THENC=C-INT(RND(1) 
¥3)!:GOSUB3996:GOTO25 

S@ IFPEEK(B+C+49*D) =73THENC=CtINT (RND (1) 
%3) 1GOSUB3996:GOTO32 

Si IFPEEK (B+C+4@*¥D) =649THENSC=SC+5: GOSUBI 
GAP 

S2 IFD=19THEN7Z1 

S53 POKEBt+C+4G*¥D, 61: POKEEE+C+49*¥D, 122 G0SU 
B86! POKEB+Ct+4GXD, 32 

54 IFC>}~“8STHENGOSUB299@: GOTG39 

55 GoTo4s 

36 D=D+ti 

S7 IFPEEK (B+C+49*¥D) =64THENSC=SCt5: GOSUBL 
GBD 

58 IFPEEK (B+C+4@*¥D) =SSTHENC=C-INT(RND (1) 
¥3) :GOSUB3966:G0OTO25 

39 IFPEEK (B+C+4@*D) =73THENC=C+tINT (RND(1) 
¥3) :GOSUB3996:GOTO32 

6G POKEB+C+49*D, 81: POKEEE+Ct+49*D, 12: GOSU 
BS6:POKEB+Ct+4@xXD, 32 

61 IFD=19THEN?Z1 

62 GOTO56 

63 L=INT(RND(1)¥3) 

64 IFD=3THEN6S 

65 SC=SC+5!: IFSC >}HITHENHI=SC 

66 PRINT" {CHOME}{(CUR DN}{CUR DN}<CUR DN3¢ 
CUR DN3{CUR DN}{ WHT} SCORE: ":PRINT:PRINT 
" "“SC!PRINT:PRINT" CRED} *¥ (WHT JHIGH{C RED} *¥ 
{YEL}":PRINT:PRINT" "HI 


68 IFL=2THENC=C+L: GOTOS9 
6? IFL=@6THENC=C-L: GOTO4S 


7@ IFL=1THENSG 

71 POKEV1i,15:M=M+1!: IFM=6THEN?? 

72 POKEW1,17:POKEA1, 9: FORTT=1TO12@6: NEXT 
73 READAA: READBE: IFBB=-1THENPOKEH1, 9: POK 
EH2,9:GOTO?5 

74 POKEH1, AA: POKEH2, BE: POKEW1,@:GOTO72 
75 RESTORE: GoTO24 
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79 PRINT" {HOME} (CUR DN} {CUR DN3{CUR Dp3¢< 
CUR DN}{CUR DN}{CUR DN} {CUR DN}{CUR DN}¢< 
CUR DN3{CUR DN}<{CUR DN}{CUR DN3}{CUR DNF 
CUR DN?{CUR DN}{CUR DN?{CUR DN}{CUR DN¢ 
CUR DN3{CUR DN}{CUR DN}{CUR DN}{CUR DN}" 
SPC (15) "€WHT}GAME OVER" 

88 FORTL=1TO29@9@: NEXT 

82 GOTO499e 

S46 GETAS 

89 IFSC=ZTHEN1@S 

99 POKEB+At49¥18, 32: POKEBt (At1) +49*18, 32 
92 IFAS="S" THENA=A-2: GOTO9?7 

93 IFAS="K"THENA=A+2: GOTO97 

94 IFAS="A"THENA=A-1 

95 IFAS="L"THENA=At1 

97 IFAC 1STHENA=19 

98 IFA>28THENA=28 


T3aoqt ESS 7AITHENHI=SC 
OO PRINT"{HOME}({CUR DN} {CUR DN3{CUR DN} 


{CUR DN;{(CUR DN; CWHT? SCORE: ": PRINTS PRIN 
T" "SCI PRINT: PRINT" CRED} *¥{WHT }HIGH{ RED} 
H¥CVYELZ"SPRINTI PRINT" "HI 

161 POKEB+t+At49#¥18, 85: POKEBt+ (At+1) +499%18, 7 
3:FOKEEEt+tAt+49@#18,13:POKEEE?+ (At+1) +496#18,1 
3 


192 RETURN 

193 FORR=SCTOSC+299:POKEW1,17:POQKEA1L,9:P 
OKEH1, 68: POKEH2, 19497: POKEW1,@ 

194 PRINT" {CHOMES( CUR DNI{CUR DNi{CUR DN> 
CCUR DN} {PUR}"SPC (17) "BONUS" 

195 IFR>HITHENHI=R 

196 PRINT"{HOME} (CUR DNS{CUR DNEtCUR DN 
{CUR DN} (CUR DN} {WHT} SCORE: ": PRINT: PRIN 
T" "RIPRINT: PRINT" {RED} ¥CWHT SHIGH{ RED} 
CYEL} "PRINT: PRINT" "HI 

19/7 NEXT: POKEH1,9@: POKEH2, 9: 5C=R°N=N+1°1F 
N=6THENSSOS 

163 IFM=1THEN119 

199 M=M-1 

116 GOTO16 

126 PRINT"{CHOME; (CUR RTI CTCUR RTF CCUR RT3 


{CUR RT}{CUR RTFCCUR RTFCCUR RTFTCUR RT 3 
{CUR RT3{RVS ON{LT BLU} 
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139 PRINT"{CUR RT3{(CUR RT} {CUR 
TI{CUR RTI{CUR RTFCCUR RTFCCUR 


TIIRVS ON} 


149 PRINT"{CUR RT3{CUR RTF CCUR 
T3{CUR RT {CUR RT3{CUR RT} {CUR 


TI {RVS ON? 
159 PRINT" {HOME} {CUR 


{CUR 
{CUR 
CCUR 
{CUR 
{CUR 
{CUR 


1696 PRINT" tCUR 
T3{CUR RTF {CUR 


DN? (CUR 
DNF {CUR 
DN?<CUR 
DN F(CUR 
RT3 (CUR 
RTS{TRVS 


T3{RVS ON> 


176 PRINT" {CUR 
T#{CUR RTF (CUR 


TICRVS ON} 
189 FORRR=1932TO1S72STEF4G@: POKERR, 169:P0 
KERR+54272, 14: NEXT 
199 FORRR=1955TO1S95STEP4@: POKERR, 169:P0 


KERR+39272,14: NEXT 
239 PRINT" {HOME} {CUR 


{CUR 
.CUR 


{CUR 
{CUR 


{CUR 
{CUR 


{CUR 


DNF{CUR 
DN3 {CUR 


DNtTCUR 
DN {CUR 
RT}{CUR 
RT?+<{( CUR 
RT?{CUR 


STAGER "Nl 
Z238 GOTO24 


1966 IFYS$="N" THENIG9OS 


KKEBREAK — INK 


DN< CUR 
DNF CUR 
DN {CUR 
DNF {CUR 
RTF(CUR 
ON> 


DN{CUR 
DN}{ CUR 


DN{CUR 
DN {CUR 
RT3C{CUR 
RTS (CUR 
RT; (CUR 


RTs (CUR 
RTS{ CUR 


RTS{ CUR 
RT3{CUR 


DN {CUR 
DNCCUR 
DN3{ CUR 
DN FC(CUR 
RT>(CUR 
RT?{CUR 


DN} {CUR 


DN} ¢CCUR 
DN?{CUR 


DN {CUR 
DN {CUR 
RT3{CUR 
RTF{ CUR 
RT (CUR 


RT{( CUR 
RTs{ CUR 


RTF{ CUR 
RT?(CUR 


DN ZT CUR 
DN;{ CUR 
DN? (CUR 
DN}{CUR 
RTI{ CUR 
RT? (CUR 


DN{ CUR 


DN{ CUR 
DNF {CUR 


DN?{(CUR 
RTI {CUR 
RT3(CUR 
RT?{ CUR 
RTFC{RVS 


RTS{CUR R 
RT?{ CUR R 


RT?{CUR R 
RTS{ CUR R 


DN3 


DN? 
DIN? 
DN 3 
RT > 
RT + 


RTs{(CUR R 
RT{CUR R 


RT?{CUR R 
RT{CUR R 


DING 
DN > 
DN 
DN 3 
RT 3 
RT 3 
RT > 
ON 3 


1991 IFYSt="Y"THENPOKES3281,1°:FORT=1TO159 
>NEXT: POKES3231 ,9 
POKEW1,0:POKEW1,17 
POKEH1,43: POKEH2, 52: FORRR=1TO19:NEXx 


1965 
1G16 
+ 

1929 
2BIS 
2616 


2825 
3GOS 


POKEW1,@:POKEH1, 9! POKEH2, 9: RETURN 
POKEW1,@:POKEW1,17 

POKEH1, 64: POKEH2, 188 
POKEW1,@!:POKEH1,@!POKEH2,9:RETURN 
POKEW1,@:POKEW1, 17 
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S3G1G 
aT 
3928 


4GGG 
4916 


NA CCUR 
NSC CUR 
NS {CUR 
Ne CCUR 


POKEH1,S1:;:POKEH2, 161: FORRR=1TO1O;NE 


POKEW1, @!POKEH1, 9: POKEH2, @: RETURN 
REM KXXKHKKKKKKHK 
IFN=6THENPRINT" {HOME} {CUR 


BRAS BUR DN}{CUR DN FT CUR 
Wei CUR DN3C{CUR DN3 {CUR 
DN} {CUR 


DN3{CUR DN; {CUR DN CCUR 
DNF(CUR DN {CUR DN {CUR DNGICUR 
DN3"SPC (15) "CWHTFGAME OVER" FORT 


DNFi CUR 


D 
DN?< CUR D 
DNS {CUR D 

D 
D 
1 


=1TO399O: NEXT 


AGL 
EAT 

4930 
4866 
4978 


46360 


FORT=1TO25: PRINT? FORTT=1TG66:NEXATIN 


PRINT" (HOME {WHT ANOTHER GO? 


GETAS: IFAS< F"Y"ANDAS*. 2 "N" THENFSS6D 
ITFAS="Y" THENRUN 


POKES5S4279, 96: POKES4273,9:POKES9272,9 


> POKES4276,90:END 


5996 
SA1ig 
5A2D5 
S98O 


FGlLG 


DATAS4, 175,32, 94, 28, 2194, 25,177 
DATA22, 227, 21,154,19,63,17,37 
DATA-1,-1 

REM XXXKKKKKKKEK 

PRINT"{HOME}{CUR DN}<{CUR DN}<CUR DN 


{CUR DN CCUR DN} {BLK} "BBS: PRINTBBS 
S926 PRINTBBS: PRINTBBS 


P G38 


IFNS=2THENPRINT" {HOME} (CUR DN} {CUR 


DN3{CUR DN} CUR DN} {CUR DN} CTCUR DN (CUR 


DN{CUR DN3{CUR DN3{ BLK} CCCE 
CECECECECEECCECE "32-1929 
994990 IFN>=S3THENPRINT" {HOME} {CUR DN} {CUR 


BNI CCUR DN3{CUR DN} {CUR DN} {CUR DN; {CUR 
N>{CUR DN3}{CUR DN3}{CUR DN3<{BLK} 


POG3G 


CeECECCEECCECCECCEE 


"32-1869 
IFN>=4THENPRINT"{HOME} (CUR DN} CCUR 


DN3}{CUR DN}ICUR DN}ICUR DNF CCUR DNF {CUR 
DN3{CUR DN {CUR DN3{CUR DN3 {CUR DN} {BLK} 


PG46 


CCCCCECCCECCCECCCE 
GOTO2S3 


"3 2=266G 


READY. 
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Here it is, a full ‘solo poker’ game. You play by’ the 
standard rules of draw poker. 


You start the game with 10 credits. No matter how many 
credits you win, the maximum bet per game is 10 credits. 
The computer will deal your hand, showing fully—defined 
cards. You have the option of of holding any [or none) 
of the cards, just by pressing the 1, 2, 3, 4 or 5 keys 
(where 1 is the Leftmost card, and 5 is the one on the 
hard right). Pressing 'C' allows you to cancel your 
holds. | 


When you've decide which cards you wish to discard, 
press RETURN and the computer will deal out your 
replacement cards, and then Look to see if you have won 
or not. 


If you don't win, a new hand will begin. If you do win, 
you'll be given the chance to double your winnings 
(double or nothing). 


If you decide to forgo this option, your winnings will 
be added to your credits total, and anew hand will 
begin. If, however, you decide to bet, a single card 
wilt be dealt, face down. You have to guess whether it 
will be high (six through to a king) or low (ace to 
five). You do this by pressing 'B' (for big) or 'S' (for 
small, of course). If you are right, your winnings will 
be doubled, and you'll get the chance to play ‘double or 
nothing' with that amount again. 
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1 V1=354296:W1=5492765A1=35492772H1=54273°L1 


=S54272 

3 CO=54272: CREDIT=1¢ 

6&6 DIMDD(13) ,EE(13) 

196 POKES3289, 5: POKE53281,9 


11 PP(1)=5S99:PP(2)=1962PP (3) =25:PP(94)=19 
>PP(5)=7°PP(6)=3:PP(7)=2:PP(8)=1 

12 FORA=1TO13:DD(A)=6°:EE (A) =6: NEXT: BB=G 
289 AS="{LT BLUINK#FEHKN N#HFKEHM NE#FFEBEM N 


PHSB NER HES" 
38 QS="%{REDIVVVVVILT BLU}’ 


LT BLU+”* %CREDIVVVVVILT BLU?’ 
V{LT BLU}? 


ZL REDSVUVUUVE 


PC REDIVUVV 


¥{REDIVUVVUVE{LT BLU}’" 


4G WS="MFSFSFFEN NFSZSFEN MFSFFFEN NFFEFZEN PC) 


BEFESN" 


5@ PRINT"{CLR} {HOME} {CUR DN}{CUR DN}{CUR 
DN3}{CUR DN} {CUR DN} {CUR DN{CUR DN TCUR 


DN {CUR DN3{CUR DN}{CUR DN}" 


G2. ER INEeS ERI NIAe ERIN ee Eth tes. Ett 
WS°PRINT@S: PRINTS: PRINTG#: PRINTWS 


76 PRINT" CHOME}CCUR DN CCUR RTF (CUR 
CUR RTI{CUR RT}{CUR RT}{CUR RT}{(CUR 
CUR RT}{ CUR RTF{({CUR RTF{ICUR RTICCUR 
CUR RT {CUR RTF{CUR RTS{CUR RTF {CUR 
{WHT 3590" 


CUR RT} CORFROYAL FLUSH 
71 PRINT"{ CUR RT}{CUR RTF{CUR 
+{CUR RTFCCUR RTFLICUR RT (CUR 
{CUR RTS{CUR RTFICUR RTFLCUR 
+{€CUR RTFCCUR RTFCCUR RTF( CUR 
RAIGHT FLUSH{IWHT? 199" 

72 PRINT"{CUR RTF(CUR RTFTCUR 
{CUR RTFTCUR RTF (CUR RTICCUR 
{CUR RTFC{CUR RTFCICUR RTFC(CUR 
{CUR RTF{CUR RTI {CUR RTF{CUR 
R OF A KIND{WHT 3 el: 

73 PRINT"{CUR RT}{CUR RTF {CUR 
+{€CUR RT}CICUR RTFICUR RTS(CUR 
3{CUR RTI {CUR RT 3 {CUR RTF{CUR 
+{CUR RTIICUR RTSC(CUR RTFC(CUR 
LL HOUSE{WHT 3 "PP (4) 

74 PRINT" CCUR RTC CUR RTC CUR 
{CUR RTF{CUR RTFCCUR RT 3 {CUR 


+{CUR RTFCTCUR RTSICUR RTFCCUR 
{CUR RT3{CUR RTI{CUR RTF{ CUR 
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RT3¢ 
RT3¢ 
RT?¢ 
RTs¢{ 


RT?( CUR RT 
RTSi CUR RT 
RT{CUR RT 
RTC BLUSST 


RT3€CUR RT 
RTI{CUR RT 
RTS{CUR RT 
RTF {ORFFOU 


RT${( CUR RT 
RT{CUR RT 
RTS{CUR RT 
RT3{( BLUSFU 


RTJ( CUR RT 
RTS{CUR RT 
RTS{CUR RT 
RTS {(ORIFLU 


SH CWHT > 
753 PRINT" {CUR 
+{CUR RT;3C{CUR 
s{CUR RTFTCUR 
{CUR RT3(CUR 
REE QF A KIND 
76 PRINT"{CUR 
${CUR RT3{CUR 
7;{CUR RTF{CUR 
7{CUR RTFCCUR 
PAIRS 

“7/7 PRINT" {CUR 
*;{CUR RTs (CUR 
s{CUR RT} {CUR 
+{CUR RT3i(CUR 
E OR BETTER 


“PP CS) 
RT(CUR RTF{CUR 
RTI{CUR RTF{( CUR 
RT3C{CUR RTS(CUR 
RTI{CUR RTF{CUR 
(WHT? "PP (6) 
RT}{CUR RT Z(CUR 
RT?{CUR RT3{CUR 
RT}{CUR RTC CUR 
RTI{CUR RTFICUR 


{WHT 3 "PF (7) 


RTs{CUR RTS{CUR 
RT}{CUR RTFCCUR 
RTs{CUR RTS{ICUR 
RT}{ CUR RTFTCUR 
{WHT} "PP (8) 


RT?{CUR RT 
RT}{CUR RT 
RT; {CUR RT 
RT} {( BLUTH 


RTJ{CUR RT 
RTI{CUR RT 
RT}CCUR RT 
RTS{ORFTWO 


RT?{CUR RT 
RT}{CUR RT 
RTS{CUR RT 
RT? C€BLUSAC 


78 IFCREDIT=9THENPRINT"{CCLRICRVS ONSCLT 


BLU; YOU 
-." sEND 


NO LONGER HAVE ANY CREDITS LEFT. 


166 PRINT" {HOME} {CUR DN} {CUR DNF {CUR RT} 
{LT BLUSCREDIT: "; CREDIT 


1935 PRINT 


116 INPUT" {HOMES {CUR RT3{CUR RT}{CUR RT} 
CPUR}BET: "3; BET 
1i1 IFBET=@THENPRINT"{HOME}{RVS ON Z{LT B 
LUFHXXXKXVYOU MUST BET AT LEAST ONE CREDITX 
¥X¥CRVS OFF 3":G0TO114 
1i2 IFBETSISGTHENPRINT" THOME? {RVS ON? C(GRN 
316 CREDITS IS THE MAXIMUM AT A TIME”":GO 
TOLLS 
113 IFBET<=CREDITTHEN296 
114 PRINT" tCHOME; {RVS ONS CGRNF*X*X*XVYOU DON’ 
T HAVE THAT MANY CREDITS. ¥X*" 
115 FORA=1TO1596962: NEXT 
116 PRINT" {HOME 3 

"3;GOTO119 
126 IFBET?1ISTHENPRINT"{RVS ONCTLT BLU XX 
¥¥19G CREDITS IS THE MAX. AT A TIMEXK*¥" 2G 
oTo114 
296 CREDIT=CREDIT-BET: PRINT" {HOME}{CUR D 
N3{CUR DNF{CUR RT See Re 
NT"{HOME}{CUR DN} {CUR DN}{CUR RTFELT BLU 
CREDIT: "; CREDIT 
2935 FORA=1TO8:PP(A)=PP (A) ¥BET: NEXT 
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266 PRINT" CHOME} {CUR 
{CUR RTS{CUR RTI{CUR 


{CUR RTFTCUR RTFICUR 
{CUR RT}{CUR RT3{CUR 
{CUR RTFTORF ROYAL FLUSH 


2067 PRINT"{CUR 
T3{CUR RTF( CUR 


DNFTCUR 
RT{CUR 
RT3(CUR 
RT{ CUR 


RTS{CUR RT3{CUR 
RT3{CUR RTFCCUR 


T3{CUR RT3{CUR RT}{CUR RT} {CUR 


T3{ CUR RTF{( CUR 


RT?{ CUR RTFCICUR 


TRAIGHT FLUSH{WHT3 "PP (2) 


2683 PRINT"{CUR 
T3{CUR RT} {CUR 


T3{CUR RTstCUR 
T3{CUR RT} {CUR 


UR OF A KIND(WHT > 


269? PRINT" {CUR 
T3{CUR RTFTCUR 
T3{CUR RT} {CUR 
TI{CUR RTF(CUR 


ULL HOUSE {WHT 3 
2196 PRINT" {CUR 


T3{CUR RT}{CUR 
TI}{CUR RTF{ CUR 
T3{CUR RT}{CUR 
USH {WHT 3 
211 PRINT"{CUR 
T{CUR RTFCCUR 
T3{CUR RT} {CUR 
T3{CUR RTF{CUR 
HREE OF A KIND 
z2i2 PRINT"{CUR 
T3<{CUR RT}3{CUR 
T3{CUR RTF{( CUR 
T3{CUR RT} {CUR 
GO PAIRS 

213 PRINT"{CUR 
TI {CUR RT3CCUR 
T3{CUR RT3CCUR 
TI {CUR RTF? (CUR 
CE OR BETTER 


RT?{CUR RTF(ICUR 
RTS{ CUR RTF{ CUR 
RT?{CUR RTFC(CUR 
RT?{CUR RTF{ CUR 
a sl le 

RT?{CUR RTS{CUR 
RT{CUR RT?( CUR 
RTs{CUR RTS{( CUR 
RT?{CUR RTF CCUR 


"PP (4) 
RT}{CUR RT}{CUR 


RTS{ CUR RT Z(CUR 
RTICCUR RTICCUR 
RTS{ CUR RTS{CUR 
"PP (3S) 

RTI {CUR RTF{CUR 
RTI{CUR RTF{CUR 
RTS{CUR RTFCCUR 
RT?{CUR RTFCCUR 
CWHT? "PP (4) 

RT}{CUR RTF {CUR 
RTI{CUR RTI{CUR 
RT}{ CUR RTF{CUR 
RTS{CUR RTFC(CUR 


CWHTF "PP C7) 


RTS{CUR RTF{( CUR 
RTS{CUR RTFCTCUR 
RTS{CUR RT F( CUR 
RT+<(CUR RTF{ CUR 
{WHT "PP(8) 


RTS{(CUR 
RT?{CUR 
RT?{ CUR 
RTI{(CUR 
C{WHT?3"PPC1) 


RT 3 
RT 3 
RT 3 
RT > 


RT?{CUR R 
RTS{CUR R 
RTS?{CUR R 
RT{BLUGS 


RT3{CUR R 
RTS{CUR R 
RT?{CUR R 
RT? CORSFO 


RTS${ CUR R 
RT?{CUR R 
RTs{CUR R 
RT? {BLUSF 


RT?{CUR R 
RT}(CUR R 
RT?{CUR R 
RTS (TORSFL 


RT?{(CUR R 
RT?{CUR R 
RTS{CUR R 
RT? {BLUGT 


RT?{CUR R 
RT${CUR R 
RT?{CUR R 
RT?{OR}TW 


RT3{CUR R 
RT{ CUR R 
RTS{CUR R 
RTC BLUSA 


219° FORA=1TOS:.:C (A) =INT C(RND(1)%13)+1°NEXAKT 
226 IFC(1)=C (2) ANDC (2) =C (3) ANDC (3) =C (4) A 
NDC (4) =C (35) THEN219 
239 FORA=1TOS:CC (A) =INT (RND(1)¥4)4+1°NEXKT 
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249 TFC (1)=C (2) ANDCC(1)=CC(2)0RC(1)=C (3) 
ANDCC (1) =CC (3) THEN219 
241 IFC(1)=C (4) ANDCC(1)=CC (94) 0RC(1)=C(35) 
ANDCC (1) =CC (5S) THEN219 
250 IFC(2)=C(1) ANDCC(2)=CC(1) 0RC(2)=C (3) 
ANDCC (2) =CC (3) THEN219 
251 IFC (2) =C (4) ANDCC (2) =CC (494) ORC (2) =C (35) 
ANDCC (2) =CC (5) THEN219 
2668 IFC (3)=C (4) ANDCC (3) =CC (94) ORC (3) =C (3) 
ANDCC (3) =CC (5) THEN219 


276 
49GB 
461 


CUR 
CUR 


CUR 
492 
CUR 
CUR 
CUR 
CUR 
49s 
CUR 
CUR 
CUR 


CUR 
CUR 
CUR 
44 
CUR 
CUR 
CUR 
CUR 


CUR 
CUR 


CUR 
465 
CUR 
CUR 
CUR 


CUR 
CUR 


CUR 


IFC (4) =C (5) ANDCC (4) =CC (5) THEN219 


FORT=1TOS 
IFT=1THENPS="{HOME3 (CUR 


DN} {CUR DN} {CUR DNC(CUR 
DN3{CUR DN3{CUR DN3{CUR 


DN?" 


IF TH=2THENPS="{HOMES (CUR 
DN}CCUR DN} {CUR DN} CCUR 
DN?{CUR DN3{CUR DN3{CUR 
DN {CUR RTFCCUR RTFCICUR 
RTS{CUR RT3{CUR RTC CUR 


IFT=STHENPS=" (HOMES (CUR 


DN {CUR 
DN CCUR 
DN? {CUR 
RT3 (CUR 
RT?{CUR 
RT?{CUR 


DNF {CUR 
DN; <(CUR 
RT3{CUR 
RT?< CUR 
RT (CUR 
RT?" 


DN{ CUR 
DNS{ CUR 
RT (CUR 
RT C(CUR 
RTS(CUR 


IFT=4S$THENPS="{HOME} {CUR 


DN3< CUR 
DN3{CUR 
DN3 (CUR 
RT?{CUR 


RT?< CUR 
RT?{ CUR 


RT?{(CUR 


DN{CUR 
DN {CUR 
RT?( CUR 
RT3{CUR 
RTs{CUR 
RT3{CUR 
RT3{CUR 


DN{( CUR 
DN( CUR 
RT?{(CUR 
RTL CUR 
RT}{CUR 
RT3{CUR 
RT?{CUR 


IF T=STHENPS=" {HOME} {CUR 


NSC CUR 
N>{CUR 


DN;¢(CUR 
RT3?{CUR 


RT3(CUR 
RT{CUR 


RT3<( CUR 


DN; (CUR 
DN {CUR 


RT?(CUR 
RT?{CUR 


RT (CUR 
RTF{CUR 
RT;<( CUR 


DN3{CUR 
DN {CUR 


RT}{CUR 
RT3{CUR 


RT3(CUR 
RTs {CUR 
RT?{CUR 
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DNF {CUR 
DN}{ CUR 
DN (CUR 


DNL CUR 
DN}{ CUR 
DNF{ CUR 
RT{CUR 
RT>" 

DN} {CUR 
DN{CUR 
DN3(CUR 
RT?(CUR 
RT3{(CUR 
RT {CUR 


DN{( CUR 
DN(CUR 
DNF{CUR 
RT3(CUR 
RT{(CUR 
RT{CUR 
RTI{CUR 
RT}{CUR 
DN {CUR 


DN?{CUR 
DN3{CUR 


RT?{CUR 
RT{CUR 
RT?{CUR 
RT?{ CUR 
RT3{(CUR 


DN: ¢ 
DNF 
DN ¢{ 


DNC 
DN>¢ 
DN3¢t 
RTs¢< 


DNi¢ 
DN 
DN¢< 
RT3¢ 
RT3¢ 
RT3¢ 


DN ¢ 
DN3>¢ 
DNi¢ 
RTs¢t 
RTs{ 
RTF¢ 
RT 
RTs" 
DN 


DNi¢ 
DNs¢{ 


RT3¢t 
RT3¢ 
RT3¢ 
RTF 
RTz¢ 


CUR 
CUR 
416 


4295 
43G 


44g 
445 


446 


KES9272,98: RESTORE: GOTO456 
447 POKES4273,A: POKES9272, Bi POKES4276,9¢0: 
GOTO445 


4428 


449 
45g 


435 
460 
461 


3 Es 
4652 P 


4, 3 


DATA17, 37,19,63, 21,154, 22, 227 
DATA25,177,-1,-1 
NEXT 
POKEV1, 15:POKEW1,9:POKEA1,@ 
GETAS: IFAS=CHRS$ (13) THENS9S 
PRINT" {HOME}<(RVS ON} {GRN3PRESS 1 
TO HOLD CARDS' 
RINT:PRINT"{YEL}{CUR DN}’ RETURN’ 


RT3{CUR RT3{CUR RT}{(CUR RT} {CUR RT}{ 
RT?}{CUR RT}{CUR RT}" 

IFCC (T) =1 THENGOSUBILOBS 
IFCC(T) =2THENGOSUB2999 
IFCC (T) =3THENGOSUBZ EGE 
IFCC (T) =4THENGOSUB4 S99 
POKEV1,15:POKEW1,17!:POKEA1,9 
READA: READB: IFB=-1THENPOKES4273,9!:P0 


3 z 


TO 


DEAL": PRINT: PRINT"{CUR DN} {CUR DNICCUR 
TO CANCEL HOLDS" 


476 IFAS="1" THENPRINT"{GRN;}CHOME? (CUR 


DN} {CUR DN3’°C’ 


si CUR 
7{CUR 
+{ CUR 


+{ CUR 
3{CUR 


DN {CUR 
DN(CUR 
DN? {CUR 
DNC CUR 


RT?HELD. 


DNSTCUR DN {CUR 
DN¢{CUR DNFtTCUR 
DNS(CUR DN3{CUR 
DN{CUR DN{(CUR 
"sCAC1)=1 


DN{CUR 
DN( CUR 
DN {CUR 
DNs<( CUR 


$71 IFAS="2" THENPRINT" (GRN}CHOMES (CUR 


+{ CUR 


3 {CUR 
+{ CUR 


+ {CUR 
+>{CUR 


+< CUR 


DN} {CUR 
DN3{( CUR 
DN {CUR 
DNF {CUR 
RT?{CUR 
RT}{CUR 


CA(2)=1 
472 IFAS="S3" THENPRINT" (GRN} CHOME: (CUR 


+{(CUR 
3( CUR 


+{ CUR 
+{ CUR 
7;{( CUR 
3{ CUR 
3{CUR 
+{( CUR 


DN {CUR 
DN {CUR 
DN?{CUR 
DN {CUR 
RT{CUR 
RT3{CUR 
RT? (CUR 
RT3( CUR 


DNFTCUR DN?{CUR 
DN{CUR DN:{CUR 
DN3{CUR DNF {CUR 
DN3( CUR DN TCUR 
RTS{ CUR RTC CUR 
RT?{CUR RTF{CUR 


DN} {CUR DN>{CUR 
DN{CUR DNF {CUR 
DN3( CUR DNt{CUR 
DNS{ CUR DN TCUR 
RT#<( CUR RTS{( CUR 
RTI{CUR RT;3{CUR 
RT${ CUR RT(CUR 


DINFt CUR 
DN3{ CUR 
DN F< CUR 
DN3{ CUR 
RT{CUR 
RT HELD 


DN;t CUR 
DN?{ CUR 
DN; {CUR 
DNS{ CUR 
RTZ( CUR 
RT{CUR 
RT3{CUR 


RTSHELD. "2 CAS) =1 
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DN 
DN 
DN 
DIN 
DN 


DN 
DN 
DN 
DN 
DN 
RT 


DN 
DN 
DN 
DN 
DN 
RT 
RT 
RT 


4% Sp aaa Eee SRE ao a Sane DN 


DNC CUR 


DN (CUR 


DNFICUR DN 


+{CUR DN;{CUR DN} (GUR DN?CCUR DN 
{CUR DN3{CUR DNS{CUR DNS{CUR DN 
*;( CUR DNICUR DN} {CUR DN;3{CUR DN 
*{CUR RTF{CUR RTS{CUR RTS{CUR RT 
7{( CUR RTSTCUR RT}{CUR RTF{CUR RT 
{CUR RT FCCUR RTS{CUR RTFTCUR RT 
;{ CUR RTFC( CUR RT} {CUR RTF{CUR RT 
{CUR RTF CICUR RT3{CUR RTFCCUR RT 
*HELD. " 


479 IFAS="3" THENPRINT 


"{GRNSCHOME? (CUR DN 


7{CUR DN: tTCUR DN} <CUR DN}CCUR DN 
s{ CUR DN} TCUR DNS{CUR DNFt{CUR DN 
*{CUR DN CCUR DN}{CUR DNICCUR DN 
s{CUR DN TCUR DNS{CUR DNS{CUR DN 
7;{ CUR RTC CUR RT}(CUR RTFTCUR RT 
{CUR RTF{CUR RT?{CUR RTS{CUR RT 
7{CUR RTT CUR RT?{CUR RTFC(CUR RT 
{CUR RT}{CUR RTS{CUR RTSTCUR RT 
{CUR RTF (CUR RTS{(CUR RTGCCUR RT 
S{CUR RT}{CUR RT${CUR RT3{TCUR RT 
7{ CUR RTs{(CUR RT3"5 

475 IFAS="S" THENPRINT"{GRNFHELD.":CA(5)= 
1 

476 IFAS="4" THENCA(4) =1 

477 IFAS="C"THENPRINT" {HOME} (CUR DNFCCUR 
DN3{CUR DN}{CUR DN3{CUR DN3{CUR DN3?{CUR 
DN}{ CUR DN 3<(CUR DN} {CUR DNFCTCUR DN{(CUR 
DN>{CUR DN} {CUR DN3}{ CUR DN}{CUR DN} {CUR 
DNi{CUR DN}{CUR DN} {CUR DNC{CUR DN"; 
478 IFAS="C"THENPRINT" 


":FORA=1TO5S: CA(A) =@ 


479 IFAS="C" THENFORA=1TOS:CA(A) =9: NEXT 
499 GOTO469 
99G BS="{LT BLUIZLIREDIVVVVV{LT BLU}’":BB 


S="{LT BLUISCREDIVVUVUVILT BLU?" CS="CLT 
BLUS%{REDIVVUVVUVILT BLU}’":CCS$="{LT BLU} 
*#CREDSVVUVUVILT BLU’ " 

9O81 DS="{LT BLUIZCLREDIVUVVVILT BLU}’*":DD 
S="{LT BLUISCREDIVVVVVILT BLU’ "ES="C{LT 
BLU3%{REDIVYUUVVELT BLU}’" 

382 PS(1)="{HOME {CUR DN {CUR DNI{CUR DN 
{CUR DNITCUR DN3{CUR DNI{CUR DNI{CUR DN 
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*+{CUR DN {CUR DNF{CUR 


Oe 


993 PS(2)="{HOMES {CUR 
+{CUR DN3CCUR DN{CUR 
{CUR DN {CUR DN {CUR 
{CUR RT FCCUR RTFCCUR 
{CUR RTF{CUR RT}{CUR 
249 PS(3)="C{HOME: (CUR 


{CUR 
+{(CUR 
+{CUR 


*{CUR 
3+{CUR 


+{CUR 


DN>{CUR 
DN;C( CUR 
RT3{CUR 


RT><CUR 
RT3{ CUR 


RT3" 


DN{CUR 
DN<{CUR 
RT?{CUR 


RT?{CUR 
RT{CUR 


IHS PS(4)="{HOMESCCUR 


+<( CUR 
3{CUR 


3{CUR 
7 {CUR 


7{CUR 
7{CUR 


7{CUR 


DN;{( CUR 
DNF TCUR 
RT?<( CUR 
RT?{CUR 
RT}( CUR 
RT{CUR 


RT}(CUR 


DN {CUR 
DN {CUR 
RT{CUR 
RT3{ CUR 
RT}{(CUR 
RTI (CUR 
RTI CTCUR 


IGG PSS) ="CHOME {CUR 


+ {CUR 
+{CUR 


7{ CUR 
+{CUR 


+{ CUR 
3 {CUR 


s{ CUR 
+{CUR 


*+{ CUR 


DN? (CUR 
DN3{ CUR 
RT?{CUR 
RT}{CUR 
RT?{CUR 
RT3{ CUR 


RT? C(CUR 


RTF( CUR 
RT3{CUR 


387 FORA=1TOS5 
5498 PRINTPS(A)3 ;PRINTBS: PRINTPS(A) +" (CUR 
DN3"5 ;>PRINTBBS: PRINTPS(A)+"{CUR DN}{CUR 
DN} "5: PRINTCS 
38S? PRINTPS#(A)+"€{CUR DN} {CUR DN? {CUR DN} 
"5 ;PRINTCCS$:PRINTPS(A)+"(€CUR DN3TCUR DN} 
{CUR DN 3CCUR DN} "5 >PRINTDS 
SiG PRINTP#(A)+"{CUR DN CCUR DNFCCUR DN? 
{CUR DN{CUR DN3"5 ;-PRINTDD#: PRINTPS#(A) +" 
{CUR DN; {CUR DNSCTCUR DNF{CUR DNFC{CUR DN; 
{CUR DN3"5 ;PRINTES 
311 NEXT 


DN?{CUR 
DN{ CUR 
RT {CUR 
RTS (CUR 
RT}{CUR 
RT(CUR 
RT3{CUR 
RTsi CUR 
RT?" 
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DN?(CUR 


DNS{ CUR 
DN {CUR 
DNF{CUR 
RT?(CUR 
RT?" 


DN? {CUR 
DN{ CUR 


DN3{CUR 
RT{CUR 
RT?{CUR 
RT3{(CUR 


DNF{CUR 
DN3t{CUR 
DN {CUR 
RT?{CUR 
RT?{CUR 
RT?{CUR 
RT?{CUR 
RTF {CUR 
DN TCUR 
DN? {CUR 
DNs{CUR 
RT{CUR 
RT?i CUR 
RTI {CUR 
RTs{CUR 
RT( CUR 
RT?{ CUR 


> TFCA(A) =1THENS11 


DNC CUR 


DN3{CUR 
DN}{ CUR 
DN>{ CUR 
RT?{( CUR 


DN F{(CUR 
DN3 {CUR 


DN?{ CUR 
RT{CUR 
RT?{ CUR 
RT?+{CUR 


DN3<CUR 
DN} {CUR 
DN3{CUR 
RT}<{CUR 
RT3<{CUR 
RT}{CUR 
RT3{CUR 
RT}" 

DN3<{CUR 
DN? {CUR 
DN3<{CUR 
RT? €CUR 
RT3£CUR 
RT}€CUR 
RT?{CUR 
RT?<{CUR 
RT3}{CUR 


DN 


DN 
DN 
DN 
RT 


DN 
DIN 
DN 
RT 
RT 
RT 


DN 
DN 
DIN 
RT 
RT 
RT 
RT 


DN 
DN 
DN 
RT 
RT 
RT 
RT 
RT 
RT 


SiS 
314 
315 
316 
ILE 
BOP 
T3498 


von bes F 2 
pon ben es 


IFCA(1) =1THEN699 

B=INT (RND(1)¥13)4+1:C=INT(RND(1)*¥4) +1 
IFB=C (1) ANDC=CC (1) THENS13 
C(1)=B:CC(1)=C 

IFC (1)=C (2) ANDCC(1)=CC (2) THENS13 
IFC(1)=C(3) ANDCC (1) =CC (3) THENS13 

IFC (1)=C (4) ANDCC (1) =CC (4) THENS13 

IFC (1) =C (5) ANDCC (1)=CC (5) THENS13 
P$S="{HOMES {CUR DN}{CUR DNICCUR DNI{C 


UR DN}3}<CUR DN}{CUR DN} I{CUR DN} CCUR DN {IC 
UR DN} {CUR DN3{CUR DN}{CUR DN}{CUR DN}" 


JUG 
368 


47) 
80 


39D 
391 


~P2 


T=1 
IFCC (1) =1THENGOSUBI1S9¢ 


IFCC (1) =2THENGOSUB2B99 
IFCC (1) =3THENGOSUB3999¢ 


IFCC (1) =4THENGOSUBS999 
POKEV1,15:POKEW1,17:POKEA1,9 
READA: READB: IF B=-1THENPOKES4273,09:P0 


KE59272,90: RESTORE: GOTO699 


39S 


POKES9273,A:POKES494272,B:POKES9276,90: 


GOTOS91 . 


690 


619 
615 


616 
620 


636 
649 


630 


IFCA(2) =1 THEN? SE 
B=INT(RND(1)%#12)+1°C=INT (RND(1)%¥3) +1 
IFB=C (2) ANDC=CC (2) THEN698 
C(2)=B.CC(2)=C 

IFC (1)=C (2) ANDCC (1) =CC (2) THEN699 

IFC (2)=C (3) ANDCC (2) =CC (3) THEN699 

IFC (2) =C (4) ANDCC (2) =CC (4) THEN696 

IFC (2)=C (35) ANDCC (2) =CC (35) THENG699 


655 
UR DNC CUR 
UR DN} {CUR 


UR RTFCCUR 
UR RT3{CUR 
6356 T=2 

666 
676 
680 


69D 
O91 


692 


PS="{HOME {CUR 


DN3{CUR 
DNS {CUR 


RT {CUR 
RT {CUR 


DNF{ CUR 
DN;{ CUR 
DNF{ CUR 
RT?( CUR 
RT?" 


IFCC (2) =1 THENGOSUB196¢G 
IFCC (2) =2THENGOSUB299S 
IFCC (2) =3STHENGOSUB3 S990 


IFCC (2) =4THENGOSUB4999 
POKEV1,15:POKEW1,17:POKEA1,9 


READA: READB: IF B=-1THENFOKES4273,90:P0 


KE54272,98: RESTORE: GOTO79B 
693 POKES4273, A: POKES942/72,B:POKE5942/76,90:; 


GOTOQ6?1 
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DN+{( CUR 
DN3 {CUR 
DN3{ CUR 
RT?( CUR 


DNZ{C 
DNZ{C 
DNC 
RT?<{C 


7 OH 
419 
7AS 
716 
426 
730 
748 
7 Id 
Fas 
UR 
UR 
UR 
UR 


UR 
UR 


736 
768 


776 
78368 


584 


Poe 


GOT 
SOG 
81d 
eis 
816 
829 
B30 
340 
830d 
S35 
UR 
UR 
UR 
UR 
UR 
UR 


UR 
S36 


IFCA(3) =1THENSSS 
B=INT (RND(1)#12)+1:°2C=INT (RND(1)¥3) +1 
IF B=C (3) ANDC=CC (3) THEN? 96 


C(3)=B: 


CC (3) =C 


IFC (3)=C (1) ANDCC (3) =CC (1) THEN? GS 
IFC (2) =C (3) ANDCC (2) =CC (3) THEN? SG 
IFC (3) =C (4) ANDCC (3) =CC (4) THEN? SS 
IFC (3) =C (35) ANDCC (3) =CC (35) THENY SS 
PS="{HOME {CUR 


DNF{ CUR 
DN>{CUR 


RT{CUR 
RT} {CUR 


RT( CUR 
RT>" 


T=3 


DN{CUR 
DN3{ CUR 
RT?{CUR 
RT} {CUR 
RT}{CUR 


DN3{( CUR 
DN3{CUR 
DN3i CUR 
RT?<{CUR 
RTS (CUR 
RT{ CUR 


IFCC (3) =1THENGOSUBIGSD 


IFCC (3) =2THENGOSUB299S 
IFCC (3) =STHENGOSUBS 9G 


IFCC (3) =4THENGOSUB4SS999 
POKEV1,15:POQKEW1,17:POKEA1,15 


READA: READB: IFB=- 1 THENPOKES4273,9:P0O 
KE54272,9: RESTORE: GOTOsaS 
793 POKE54273, A! POKE5S4272, B!: POKE54276,@9: 


O79 1 


IFCA (4) =1 THENSSS 
B=INT(RND(1)%12)+1°C=INT (RND(1)%3) +1 
IFB=C (4) ANDC=CC (4) THENSS2 


C(4)=B: 


CC(49)=C 


DNF{ CUR 
DN; (CUR 
DN {CUR 
RT?{CUR 
RT3{ CUR 
RT?<{CUR 


DN{C 
DNC{C 
DN-{C 
RT{C 
RTF{C 
RTF<{C 


IFC (4) =C (1) ANDCC (4) =CC (1) THENSSS 
IFC (4) =C (2) ANDCC (9) =CC (2) THENSSS 
IFC (3) =C (94) ANDCC (3) =CC (9) THENSOS 
IFC (94) =C (35) ANDCC (4) =CC (35) THENSSS 
PS="{HOME? {CUR 


DN}{CUR 
DN}<{CUR 
RT}<{CUR 
RT}<{CUR 
RT}<{CUR 
RT3<{CUR 
RT}<{CUR 
T=4 


DN3{CUR 
DN >iCUR 
RT?{CUR 
RT}{CUR 
RT?(CUR 
RT3{CUR 
RT?<( CUR 


DN; {CUR 
DN? (CUR 
DN {CUR 
RT{CUR 
RT3{ CUR 
RT?{(CUR 
RT3{(CUR 
RT?(CUR 


S69 IFCC (4) =1THENGOSUBISIS 
870 IFCC (4) =2THENGOSUBLSIS 
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DNS{CUR 
DN3{ CUR 
DN? {CUR 
RT?{( CUR 
RT?{ CUR 
RTs{( CUR 
RT?{( CUR 
RT?” 


DN{C 
DNZiC 
DN Z{C 
RTFtC 
RTFL{C 
RTFtC 
RTsitc 


S3q 


rn) 
B54 


S92 


GOT 
POD 


916 
212 


P16 
P26 


930 
P48 


93g 
935 


UR 
UR 


UR 
UR 


UR 
UR 


UR 
UR 


UR 
P36 


968 
954 


O72 
P73 


974 


GOT 


IFCC (94) =STHENGOSUBSS9SD 


IFCC (4) =4THENGOSUB4S9S9S6 
POKEV1,15:POKEW1,17:POKEA1,9 


READA: READB: IFB=- 1THENPOKES4273,90:P0 
KES54272,90: RESTORE: GOTO992 
893 POKES4273,A:POKES4272,B:POKES9276,9: 


O891 


IFCA(S) =1THEN9SSS 
B=INT (RND(1)¥12)4+1:C=INT (RND(1)%¥3) +1 
IFB=C (5) ANDC=CC (5) THEN? SS 


C(3)=B: 


cc (3s) =C 


IFC (5) =C (1) ANDCC (5) =CC (1) THENS SP 
IFC (5) =C (2) ANDCC (5S) =CC (2) THEN?SS 
IFC (5) =C (3) ANDCC (35) =CC (3) THENS SS 
IFC (4) =C (5) ANDCC (4) =CC (5) THENS9D 
P$S$="{HOME? (CUR 


DN? < CUR 
DN? {CUR 


RT3{(CUR 
RT}{CUR 


RT?<{CUR 
RT}{CUR 
RT?{ CUR 
RT3{(CUR 


RT}<{CUR 
T=5 


DN3{CUR 
DN (CUR 


RT?<( CUR 
RT>${CUR 


RT?{(CUR 
RT3${CUR 
RT?{CUR 
RT?{CUR 
RE 


DNC CUR 
DN>(CUR 
DN;{CUR 


RT?{ CUR 
RT?{CUR 


RT?{CUR 
RT3{CUR 
RT?{CUR 
RT(CUR 


IFCC (3) =1THENGOSUB1SES 


FCC (3) =2THENGOSUB29SGS 
FCC (5) =STHENGOSUB3 999 


IFCC (5) =4THENGOSUB4999 
POKEV1,15:POKEW1,17!POKEA1,9 


READA: READB: IF B=- 1 THENPOKES9273,0:P0 
KES4272,9:RESTORE: GOTO98¢ 


975 POKE5S4273, A: POKE5S4272, B: POKES42764,@: 


O973 


989 GOTOS65S 


196 


1G1G IFCC(T) =1THENBS="“%{REDIA 


? a 
os 


O@ REM 


BBS="% 


, 


19626 IFC(T)=1THENCS="% 


ED?S{LT BLU? 


7 ou 


19360 IFC (T)=1THENDS="% 


7 
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DN{ CUR 
DN?( CUR 
DN?{CUR 
RTs (CUR 
RT3{CUR 
RT3?{(CUR 
RT3{CUR 
RT?{( CUR 
RT3{CUR 


"5 CCH="% 


DN S{C 
DN{C 
DN 3{C 
RT3{C 
RT3{C 
RT3<{C 
RTI{C 
RTC 
RT3{C 


A{LT BLU? 


iR 


7" 2 DDS="% 


19990 IFC(T)=1THENES="%{REDIA 
16356 IFC(T) =2THENBS="%{RED}2 


7*:BBS="% {RED}S{LT BLU} 7" 
196@ IFC(T)=2THENCS="% 70 


197@ IFC(T)=2THENDS="% 0 
ED}S{LT BLU} °*" 
1989 IFC(T)=2THENES="%{RED3}2 


199 IFC(T)=3THENBS="%{RED}3 
7"SBBS="% {RED3SC{LT BLU? on 
1196 IFC(T) =3STHENCS="% a 
ED}S{LT BLU? nee 

11196 IFC(T)=3THENDS="% eae 
ED}SCt{LT BLU? oa 

1126 IFC (T) =3THENES="%{(REDI3 
113@ IFC (T) =4THENBS="%(RED?4 
""3; BBS="4%{( REDS Sti? BEUs Ss 
1194@ IFC(T) =4THENCS="% ae 
1150 IFC (T) =4THENDS="% yy 
iS SttiT BE * 

1166 IFC(T) =4THENES="%(RED:4 
1176 IFC (T) =STHENBS="%{REDIS 
7"; BBS="%{(REDIS StL? BL? 


1189 IFC(T)=STHENCS="% 0 
ED?}S{LT BLU} 7" 
1199 IFC(T)=STHENDS="% am 


+S St{LT BEUs** 
1266 IFC(T) =STHENES="%{RED}5 


12190 IFC(T) =6THENBS="%{RED36 
7") BBS="%{( REDS S2<L7 BLU” 


1229 IFC(T) =6THENCS="% 7H 
+S S{LT BLU?" 
123@ IFC(T) =6THENDS="% zm 


3S StCeT BLUs? 

12946 IFC(T) =6THENES="%{REDS6 
12568 IFC (T) =/7THENBS="“%{(RED37 
""S BBS="%C(RED:S StLT BEUsS:* 


149 


AtLT BLU? 


2iLT BLU: 


-CCS="% 


>DDS="% {PR 


2tLT BLU} 


S{LT BLU>S 


2>CCS="% {RR 


>DDSt="% ¢{R 


S{LT BLU> 


4{LT BLU> 


-CCS="% 


>DDS="Z4{ RED 


4{LT BLU; 


S{LT BLU} 


2~CCS="% {RR 


> DDS="%Z{RED 


J{LT BLU? 


6{LT BLU? 


>CCS$="%{(RED 


> DDS="Z%{( RED 


6{LT BLU> 


YA{LT BLU 


12690 IFC (T) =”7THENCS="% 


7", CCSH="%{(RED 


BLU 3 


BLU > 


BLU> 


BLU +> 


BLU +> 


BLU > 


BLU> 


BLU> 


7S S Stl BLU" 

12706 IFC(T)=7THENDS="% 7" DDS="%{RED 
+S St{lLyYT BLEU? * 

12890 IFC(T) =7THENES="%{RED}7 Z{LT 
1298 IFC(T) =S8THENBS="%{REDIS St{LT 
7") BBS="%(REDIS S{LT BLU’ ” 

1398 IFC(T) =S8THENCS="%{REDIS SLT 
7" CCH="% oe 

13196 IFC(T) =STHENDS="%{REDIS S(T 
7" DDS="%{(REDIS S{LT BLU?’ ”" 

1320 IFC(T)=STHENES="%{RED}8 St{LT 
1336 IFC(T) =9THENBS="%{RED}9 O{LT 
7" BBS="%{ REDS S{LT BLU?’® 

1349 IFC (T)=9THENCS="%{REDIS S{LT 
7"3CCSB="% C{(REDISC{LT BLU; a, 

1350 IFC(T) =9THENDS="%{RED}S S{LT 
7", DDS="%{( REDS S{LT BLU?’" 

13690 IFC (T) =STHENES="%{RED}9 PILT 


7 su 


1376 IFC(T)=19THENBS="%{RED}19 1G{LT 
27 ":BBS="%C(REDIS  S{LT BLU}’" 

1388 IFC(T) =19THENCS="%{RED}S S S{LT 
7°" 2CCH="% ae 

1399 IFC(T)=19THENDS="%{RED}S S S{LT 
37 ":DDS="%{REDIS S{LT BLU}’" 

149G IFC(T)=19THENES="%{RED}19 19{LT 
yee 

14919 IFC(T)=11THENBS="%{REDIIS SI{LT 
37 ":BBS="%C(RED}J J{LT.BLU}’" 

1428 IFC(T)=11THENC#="%{RED?J J J{LT 
27 "2 CCHa"% x" 

143@ IFC(T)=11THENDS="%{RED3J J J{LT 
77":DDS="%{RED}J JCLT BLU?’”" 

1449 IFC(T)=11THENES="%{RED}IS SI{LT 
:eo 

1459 LFC(T)=12THENBS="%{REDIQS SALT 
37 ":BBS="%{RED}Q@ @{LT BLU}’" 

1468 IFC(T)=12THENCS="%{RED3Q @ G{LT 


PLLECC#="% *" 
476 IFC(T)=12THENDS="%{RED3}G@ @ Q{LT 


77"; DDS="“%{(REDIQ Q@¢{LT BLU}’" 
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BLU+> 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


1489 IFC(T)=12THENES="%{RED}QS SQ{LT BLU 
yen 

1999 IFC(T)=13THENBS="%{REDIKS SK{LT BLU 
37": BBS="%(REDIK  K{LT BLU}’" 

1598 IFC(T)=13THENC#="%{RED}K K K{LT BLU 
27 "2 CCH="% x" 

1519 IFC(T)=13THEND$="%{RED}K K K{LT BLU 
27 ":DDS="%{REDIK  K{LT BLU}?" 

1529 IFC(T)=13THENES="%{REDIKS SK{LT BLU 
peo 

1559 PRINTPS$ :PRINTBS:PRINTPS+"{CUR DN3" 
;: PRINTBBS:PRINTPS+"{CUR DN3{CUR DN3"3:P 
RINTCS:PRINTPS+"{CUR DN3{CUR DN}{CUR DN3 
"3 :PRINTCCS:PRINTP$+"{CUR DN}{CUR DN?<CU 
R DN3}{CUR DN}"3:PRINTDS 

1569 PRINTPS+"{CUR DN}?{CUR DN3{CUR DN3{C 
UR DN}{CUR DN}"53:PRINTDDS: PRINTPS+" {CUR 

DN3{CUR DN3}{CUR DN}{CUR DN}{CUR DN}<{CUR 

DN3"3:PRINTES 

1999 RETURN 


2099 REM 

2919 IFC(T)=1THENBS="%{RED}A  A{LT BLU} 
7? 1 8 BS= aay A 7, 

2629 IFC (T)=1 THENCS="% -9'CCH="% CR 
ED}Z{LT BLU} °” 

2038 IFC(T)=1THENDS="% oe DpS="% 


sn 


26090 IFC(T) =1THENES="%{(REDIA AtLT BLU? 


te 


296590 IFC(T) =2THENBS="%{(REDi2 2{LT BLU? 
7";BBS="% {(REDIZCELT BLU? ao 

2660 IFC(T)=2THENCS="% 7", CCS="% 
20706 IFC(T) =2THENDS="% 7", DDS="% TR 


ED}7{LT BLU: sas 

26890 IFC (T) =2THENES="“%{(REDj2 2{LT BLU; 
2698 IFC(T) =STHENBS="%{REDIS StL] BLU? 
7") BBS="% <{REDSZ(LT BLU} reas 


216@ IFC(T)=3THENCS="% 7"3;CCH="% {R 
ED}Z{LT BLU; ir 
21196 IFC(T) =3THENDS="% 7", DDS="% CR 


ED} Z{LT BLU? ar 
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2126 IFC(T) =3THENES="%{REDi3 


7 on 


2130 IFC(T) =4THENBS="Z%{(REDI4 
7" BEBS="%C(REDIZ Z{LT BLU?’ " 
2199 IFC(T)=4THENCS="% 


7 ou 


21590 IFC(T) =4THENDt="% 
+2 ZAI Bes 


21690 IFC(T) =4THENES="%{RED;34 
2176 IFC(T) =STHENBS="%{(RED}5 
7") BBS="%C(REDIZ Z{LT BLU?’ " 
2186 IFC(T) =STHENCS="% a 
ED}Z<{LT BLU} ro 

2196 IFC(T) =STHENDS="% ee 


+z ZEEE BEY? 

2296 IFC(T) =STHENES="%{REDi5 
2216 IFC(T) =6THENBS="%{(RED}6 
7"), BBS="%{REDIZ Z{LT BLU?’ " 


2228 IFC(T)=6THENCS="% 70 
3Z ZtLT BLU}’” 
2238 IFC(T) =4THENDS="% a0 


+2 ZiT. BEM)" 

2299 IFC(T) =6THENES="%{RED}6 
2256 IFC(T) =7THENBS="%{RED}?7 
7" BBS="%C(REDIZ Z{LT BLU?’" 


22698 IFC(T)=7THENCS="% a 
3Z Z Z{LT BLU}’”" 
2278 IFC(T) =7THENDS="% 710 


+2 ZeET Buus 

22839 IFC(T)=/THENES="%{(RED}7 
2296 IFC (T) =STHENBS="%{REDIS 
7", BBS="%(REDsZ Z£{LT BLU’" 
23900 IFC (T) =STHENCS="%(REDiZ 
7"1CCS="% foe 

23106 IFC(T) =S8THENDS="Z(REDIZ 
7" DDS="%CREDIZ 2% BEL 
2326 IFC(T) =STHENES="%{REDI82 
2330 IFC(T) =9S9THENBS="%{(RED}9 
7" BBS="%CREDiZ Z{LT BLU?” " 
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StlT 


BLU? 


4{LT BLU; 


7" CCH="% 


4{LT 


StiLlT 


>CCS="% 


SCLT 


6t{LT 


6{LT 


7". DDS="%{ RED 


BLU +> 


BLU} 


tR 


> DDS="%Z(RED 


BLU? 


BLU} 


-CCSH="% (RED 


> DDS="% (RED 


BLU 


7{LT BLUG 


Fe el 


S{LT 


Z£4(LT 


Pe oh Ef 


St{LT 


SLT 


>CCS="%C(RED 


> DDS="%{ RED 


BLU? 


BLU +> 


BLU? 


BLU > 


BLU> 


BLU +> 


2346 IFC(T) =9THENCS="Z{RED}Z Zi{LT BLU? 


7"SCCSH="% {REDIZCILT BLU; new 


2356 IFC (T) =STHENDS="%C(RED}Z Z£<LT BLU; 


7", DDS="%(REDIZ Z{LT BLU}? " 


23690 ITFC(T) =STHENES="%{RED}9 P{LT BLU> 


7 


2376 IFC(T)=19THENBS="%{REDI19 19{LT 
7": BBS="%C(REDIZ Z{LT BLU}?" 

2388 IFC(T)=19THENCS="%{RED}Z Z Z{LT 
"I CCH="% a 

239@ IFC(T)=19THENDS="%{RED}Z Z Z{LT 


Bap DSa SCRED IZ Z{LT BLU?’ " 
46G IFC(T)=1OTHENES="%C(REDI19 18{LT 


yen 
241G IFC(T)=11THENBS="%{RED}IZ ZI{LT 
77 ":BBS="%C(RED}J JCLT BLU}’” 

2426 IFC(T)}=11THENCS="%{RED}J J J{LT 
27 "3CCH="% x" 

2439 IFC(T)=11THENDS="%{RED}J J J{LT 
77" :DDS="%CREDIJ IJCLT BLU?’" 

244G IFC(T)=11THENES="%{RED?IZ ZI{LT 


bee 
2450 IFC (T) =12THENBS="“%{(REDIQZ ZQCLT 


37’ "2 BBS="%{(REDIQ Q@¢{¢LT BLU:’”®* 
24969G IFC(T)=12THENCS="%ZC(REDIQ @ AtLT 


7 "3: CCH="% x" 
2476 IFC(T)=12THENDS="%{RED}@ Q@ Q{LT 
27 ":DDS="%{REDI@ CLT BLU}’" 


248@ IFC(T)=12THENES="%{RED}QZ ZQLLT 
yen 

2498 IFC(T)=13THENBS="%{RED}KZ ZKELT 
27 ":BBS="%CREDIK  K{LT BLU}?” 

2596 IFC(T)=13THENC#="%{RED?K K K{LT 
2 1 CCS=" 9, x" 

2519 IFC(T)=13THEND#="%{RED}K K K{LT 


77? "2: DDS="%{(REDIK K{LT BLU}’" 
2526 IFC(T) =13THENES="%{(RED?KZ ZKILT 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


2559 PRINTPSs; >: PRINTBS: PRINTPS+"{CUR DN?" 
5: PRINTBBS:PRINTPS+"C€CUR DN? CCUR DNF"5 .P 


RINTCS: PRINTPS+"{CUR DN} {CUR DN }{CUR 


DNs 


"S :PRINTCCS#: PRINTPS+"{CUR DN3({CUR DN3{(CU 


R DN} CCUR DN3"3:PRINTDS 


2569 PRINTPS+"{CUR DN {CUR DNSCCUR DNEC{C 
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UR DN3{CUR DN3"5 7PRINTDDS: PRINTPS+" (CUR 
DN} {CUR DN}{CUR DN}{CUR DNICCUR DN (CUR 
DN3"5 ;>PRINTES 

2999 RETURN 


3989 REM 

3G1G IFC(T)=1THENBS="%{GY 3A ACLT BLU 
3° ":BBS="% 7m 

3928 IFC(T)=1THENCH="% 7"2CCHB="% {G 
Y BACLT BLU} *" 

3G3G IFC(T)=1THENDS="% 79s DpDs="% 


7 on 


3G4G IFC(T)=1THENES="%{GY 33A ACLT BLU 
ps 

390350 IFC(T) =2THENBS="%(GY 332 2{LT BLU 
}’"I:BBS="% (GY BIACLT BLU? ie 

396G IFC(T) =2THENCS="% 7", CCH="% 
3978 IFC(T) =2THENDS="% 7"DDS="% {G 


Y SIACLT BLU bes 
3$98@ IFC(T) =2THENESG="%{(GY 332 2{LT BLU 


pore 
36996 IFC(T) =3THENBS="%{GY 333 St{LT BLU 
77" ;BBS="% {GY SsACLT BLU} bs: 


31998 IFC(T) =3THENCH="% 7"3CCH="% {CG 
Y SACLT BLU? se 
31190 IFC(T) =STHENDS="% 7" DDS="% {G 


Y SIALLT BLU? aie 

S129 IFC(T) =STHENES="%{GY 333 S{LT BLU 
5 aa 

$130 IFC (T) =4THENBS="%{GY 334 4{LT BLU 
+’ " BBS="%{GY 353A ACLT BLU? 

314G@ IFC(T) =4THENCS="% 7", CCH="% 
3158 IFC(T) =4THENDS="% 7" DDS="%{GY 
373A ACLT BLU’ " 

S166 IFC(T)=4THENES="“%{GY 334 4{LT BLU 
G eacemeh 

3176 IFC(T) =STHENBS="%{GY 335 J{LT BLU 
+7"; BBB="%{(GY 3A ACLT BLU?’ " 


S189 IFC(T) =STHENCS="% 7", CCS="% {G 
Y S}ACLT BLU? se 
S196 IFC(T) =STHENDS="% 7", DDS="%{(GY 


3A ACLT BLU}’" 
329698 IFC(T) =STHENES="“%{GY 335 S{LT BLU 
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i eae 
3218 IFC(T) =6THENBS="%{GY 336 6{LT BLU 


>’ "2 BBS="%(GY 33A ACLT BLU?’" 


3226 IFC(T) =6THENCS="% 7", CCH="%4(G6Y 
3A ACLT BLU?’" 
$2306 IFC(T) =6THENDS="% 7 "3 DDS="%{GY 


3A ACLT BLU?’ " 

3299 IFC(T) =6THENES="%{GY 336 6t{LT BLU 
aaa 

32590 IFC(T) =7THENBS="%{GY 337 7Z{LT BLU 
+7"; BBS="%{GY 3A ACLT BLU?’ " 


3269 IFC(T) =YTHENCS="% 7", CCH="4(G6Y 
33A A ACLT BLU?’ " 
32706 IFC(T)=/7THENDS="% 7", DDS="4%(GY 


33A A{LT BLUD?” 

3288 IFC(T)=7THENES="%{GY 337 7{LT BLU 
ye 

3298 IFC(T)=8THENBS="%{GY 338 S8{LT BLU 
27 ":BBS="%(GY 373A ALLT BLU}’" 

3398 IFC(T)=STHENCS="%{GY 33A ALT BLU 
7 "ICCH="% ee 

3319 IFC(T)=8THENDS="%{GY 33A A{LT BLU 
77 "sDDS="%{GY 334 ALCLT BLU}’" 

3328 IFC(T)=S8THENES="%{GY 338 S8{LT BLU 


3338 IFC(T)=9THENBS="%C(GY 339 99{LT BLU 
7" :BBS="%(GY 33A ACLT BLU}?" 

334G IFC(T)=9THENC#="%{GY 33A AXLT BLU 
77":CCHB="% {GY BACLT BLU} 7" 

S356 IFC(T)=9THEND#="%{GY 334A ACLT BLU 
7 "2DDS="%(GY 33A ACLT BLU}’" 

3368 IFC(T)=9THENES="%{(GY 339 {LT BLU 
yen 

3378 IFC(T)=19THENBS="%{(GY 3318 19{LT BL 
U}’?":BBS="%{(GY 334A ALT BLU}’" 

338@ IFC(T)=19THENCS="%{GY 33A A ALLT BL 


Us? "1CCB="% a 

3B39G IFC(T)=1@THENDS="%{GY 33A A ALLT BL 
Ui" "!DDH="%CGY 3A ALLT BLU}’" 

3498 IFC(T) =198THENES="%{GY 3318 19{LT BL 
up?" 

34198 IFC(T)=L1ITHENBR="%{GY 333A AILLT BL 
Us? "!BBS="%{GY 33] J¢LT BLU}7" 

3426 IFC(T)=1L11THENCH="%{GY 333 J J{LT BL 
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UF? "I CCH="% x" 
3438 IFC(T)=11THENDS="%{GY 333 J JC{LT BL 


U7" :DDS="%t(GY 33J J{LT BLU?’ 
34949 IFC(T)=11THENES="%{GY 333A AIJILT BL 


ee 
3459 IFC(T)=12THENBS="%{GY 33QA AQ{ILT BL 


+7"; BBS="SZCGY 33Q Q{LT BLU?’ " 
S469 IFC(T)=12THENCS="%{GY 33Q@ Q@ @{LT BL 


UF’ ":CCH="% x" 

3478 IFC(T)=12THENDS="%{GY 33@ Q@ @{LT BL 
U}'":DDS="%{GY 37Q@ @tLT BLU?” 

348@ IFC(T)=12THENES="%{GY 33@A AQ{LT BL 
Lips 

3498 IFC(T)=13THENBS="%{GY 33KA AK{LT BL 
U}’":BBS="%{GY 33K K{LT BLU}’" 

359@ IFC(T)=13THENCS="%{GY 33K K K{LT BL 
Ud" ":CCH="% x" 

3519 IFC(T)=13THENDS="%{GY 33K K K{LT BL 
U}’":DDS="%{GY 33K K{LT BLU}’" 

3528 IFC(T)=13THENES="%{GY 33KA AK{LT BL 
as 

3558 PRINTPS;:PRINTBS:PRINTPS+"{CUR DN" 
;: PRINTBBS:PRINTP$+"{CUR DN}{CUR DN}"3:P 
RINTCS:PRINTP#+"{CUR DN3{CUR DN3{CUR DN} 
"3 :PRINTCCS:PRINTPS+"{CUR DN}¢CUR DN}{CU 
R DN3{CUR DN}"3:PRINTDS 

3569 PRINTPS+"{CUR DN}{CUR DN3}{CUR DN3{C 
UR DN3{CUR DN?"3:PRINTDD®S: PRINTPS+" {CUR 
DN}{CUR DN}{CUR DN}{CUR DN}<{CUR DN}{CUR 
DN3"3 :PRINTES 

3999 RETURN 

4992 REM 

491@ IFC(T)=1THENBS="%(GY 33A ALT BLU 
37 "2 BBS="% ae 


4926 IFC(T)=1THENCS="% 7" ,CCH="% {G 
Y BIX{LT BLU? dab 
4930 IFC(T)=1THENDS="% 7") DDS="% 


zou 


4949 IFC(T)=1THENES="“%{GY S33A ACLT BLU 
2 eed 

49590 IFC(T) =2THENBS="%{GY 332 2{LT BLU 
77> "SBBS="% {GY 3B3X{LT BLU} Fs 

4666 IFC (T) =2THENCS="% 7", CCS="% 


, on 
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4979 IFC(T) =2THENDS="% 7" DDS="% {G 
Y BSixXC{LT BLU? wt: 

4989 IFC(T) =2THENES="%{GY 332 2{LT BLU 
D acini 

4996 IFC(T) =3STHENBS="“4%{(GY 373 S{LT BLU 
>’ "3BBSB="% (GY BSIxC{LT BLU? ls 


4196 IFC(T) =3THENCS="% 7"5CCS="% t{G 
¥ S35.67 BES cme 
4116 IFC(T) =3THENDS="% *"SDDS="% tG 


Y SIXCILT BLU? a 

9i2d IFC(T) =3THENES="“%{GY 333 StLT BLU 
poe lt 

9136 IFC(T) =4THENBS="%{GY 334 4¢{¢LT BLU 


,°"IBBS="%(GY 33k X€LT BLU}'" 
4149 IFC (T) =4THENCS="% CC m= ay 


941590 IFC(T) =4THENDS="% 7", DDS="%(GC6Y 
3H X{LT BLU?’" 

9166 IFC(T) =4THENES="%{GY 334 4{LT BLU 
porate 

9176 IFC(T) =STHENBS="4(GY 335 S{LT BLU 
77>"; BBSB="%(GY 33x A{LT BLU" " 


98186 IFC(T) =STHENCS="% 7", CCS="% {G 
Y SIxX<{LT BLU? or 

91°6 IFC(T) =STHENDS="% 7") DDS="%{(GY 
SiH AtLT BLU 

9260 IFC(T) =STHENES="%{GY 335 St{LTF BLU 
yo" 


9219 IFC(T) =6THENBS="%{(GY 3:36 6{LT BLU 
7 "2 BBSB="%L(GY 33x - XCLT BLU" 


4220 IFC(T) =6THENCS="% 7", CCH="Z2{(6Y 
SX XtLT BLU” 
9236 IFC(T) =6THENDS="% 7", DDS="%1(G6Y 


SIN X{LT BLU?’ ” 

94296 IFC(T) =6THENES="%{GY 336 6{LT BLU 
942560 IFC(T) =7THENBS="%{(GY 337 Y7{LT BLU 
77>"; BBS="SZCGY 3x At BOSS 


9268 IFC(T) =7THENCH="% 7" 2 CCS="Z(G6Y 
Ss. A ALE) BEUT 
49276 IFC(T) =7THENDS="% 7 "2 DDS="%4{( GY 


SIN SCLET BEUS** 
4286 IFC(T) =7THENES="%{GY 337 7{LT BLU 


rH 
ed 
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4296 IFC(T)=8THENBS="%{GY 338 S{LT 
77 ":BBS="%(GY 33X XC{LT BLU}'" 
4398 IFC(T)=8THENCS="%{GY 33X X{LT 
7 "3 CCH="% a 
4319 IFC(T)=8THENDS="%{GY 33X  X{LT 
77° "2DDS="%(GY 33% X{LT BLU}’" 
4328 IFC(T)=8THENES="%{GY 338 S{LT 
yen 
433G IFC(T)=9THENBS="%{(GY 339 9{LT 
7° ":BBS="%(GY 33X XLT BLU}’" 
434@ IFC(T)=9THENCS="%{GY 33K XE{LT 
77 ":CCB="% (GY 3IXC{LT BLU} °" 
4350 IFC(T)=9THENDS="%{GY 33X X{LT 
77" PDDB="%{GY 3X XC{LT BLU}’" 
436@ IFC (T)=9THENES="%{GY 339 {LT 
yes 
437@ IFC(T)=1@THENBS="%{GY 331G 1O{LT 
U}*":BBS="%{GY 33X X€{LT BLU?’" 
4389 IFC(T)=19THENCS="%{GY 33 X X{LT 
7": CCH="% om 
398 IFC(T)=19THENDS="%{GY 33% X RCLT 
U}7":DDS="%{GY 33X XCLT BLU}’" 
4496 IFC(T)=18THENES="%{GY 3319 16{LT 
uz" 
4419 IFC(T)=11THENBS="%{GY 333 XICLT 
U}7":BBS="%{GY 333 J{LT BLU}’" 
4426 IFC(T)=11THENCH="%{(GY 333 J JLT 
UU}? "I CCH="% x" 
443@ IFC(T)=11THENDS="%{GY 333 J J{LT 
Ud": DDB="%(GY 3}J IJCLT BLU}’" 
4449 LFC(T)=11THENES="%{GY 33IX XICLT 
uso" 
445@ IFC(T)=12THENBS="%{(GY 33@X XQ{LT 
U}’":BBS="%{GY 33Q @{LT BLU?" 
4468 IFC(T)=12THENCS="%{GY 33Q @ Q{LT 
U7": CCH="% x" 
447@ IFC(T)=12THENDS="%{GY 33@ @ Q{LT 
U}7":DDS="%{GY 33Q@ {LT BLU}"" 
4489 IFC(T)=12THENES="%{GY 330X X@{LT 
aa 
9499 IFC(T)=13THENBS="%{GY 33KX XK{LT 
U}?":BBS="%(GY 33K K{LT BLU??" 
459@ IFC(T)=13THENCS="%{GY 33K K K{LT 


Lip 


~CCS="% 


x" 
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BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


$310 IFC (T)=13THENDS="%{GY 33K K K{LT BL 


We’ DDS="%ZIGY 33K K{LT BLUs*" 

$526 IFC(T)=13THENES="%{GY 33KX KXKILT BL 
Be eae 

45590 PRINTPS; :PRINTBS:PRINTPS+"{CUR DN}" 


s>PRINTBBS: PRINTPS+"{CUR DN? (CUR DNG"35°P 
RINTCS: PRINTPS+"{CUR DN} {CUR DN}{ CUR DN3 


"S:PRINTCCS: PRINTPS+" (CUR DN}{CUR DN3C(CU 
R DN} {CUR DN}";:PRINTDS 


4566 PRINTPS+"{CUR DN} {CUR DNILCUR DNCC 


UR DN3 {CUR DN3"5 2: PRINTDDS: PRINTPS+"{CUR 
DN3<CUR DN}{CUR DN} CCUR DN} CCUR DN{CUR 
DNF"5 ;PRINTES 


4999 RETURN 
IGGS REMKXHHXCARD DESTINCTIONXXXX*¥ 
59186 FORB=1TO13: FORA=1TOS: IFC (A) =BTHENEE 


(B)=EE(B) +1 


3626 NEXT: NEXT 

~8308 FORA=1TO13: IFEE (A) =4THEN6699 

54649 IFEE(A) =3THENBB=1 

3O5G NEXT: IFBB=1THENSS6o 

39355 GOTQSS95 

3869 FORB=1T013: FORA=1TOS: IFC (A) =BTHENDD 
(B)=DD(B) +1 

~870 NEXT: NEXT 

293890 FORA=1T0O13: IFDD(A) =2THEN6999 

IO9G NEXT 

3995 IFBB=1THENBB=9: GOTO729¢ 

5996 FORA=1TO13:°EE (A) =6:DD(A) =6: NEXT 
J1GG REMKXXX¥XCARD DESTINCTIONXXXX* 

53110 FORB=1TO13:FORA=1TOS: IFC (A) =BTHENDD 


(B)=DD(B) +1 


Ji26G NEXT: NEXT: FORA=1TO13: IFDD(A) =2THENB 
B=BBt1 

Ii3SG NEXT: IFBB< 2THENFORA=1T013:DD(A)=G:N 
EXT: BB=6: GOTOS159 

2149S GOTO/Y4SHS 

I1S5G REMEKXKKKXKCARD DISTINCT IONXXXKE 

5166 IFC(1)=C(2)0RC(1)=C(3)0RC(1)=C (4) 0R 


C(1)=C (5) THENS 2590 


S1Ii?7SG IFC (2)=C (3) 0RC (2) =C (494) ORC (2) =C (5) TH 
ENS259 
313S8G IFC(3)=C (4) 0RC (3) =C (5) THENS23564 


2319S 


IFC (4) =C (35) THENS259 
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529@@ FORB=13TOLSTEP-1 

5219 FORA=1T0O5: IFC (A)=BORC (A) =B-1GRC(A)= 
B-2O0RC (A) =B-30RC (A) =B-4THENDD(B)=DD(B) +1 
5226 NEXT: NEXT: FORA=1TO13!: IFDD(A) =STHENG 
SIP 

5225 NEXT 

S238 FORA=1TOS: IFC (A) =10RC(A)=19G0RC(A)=1 
ORC (A) =120RC (A) =13THENNEXT: GOTO68aag 
3248 FORA=1T013:DD(A)=8!: NEXT 

5259 REMKXXX¥X¥CARD DESTINCTIONXXX¥¥* 

5269 FORA=1TO5S: IFC(A)=1THENDD=DD+1 

5270 NEXT: IFDD< 2THENS 299 

5289 GoTavége 

5298 REMKXXXXCARD DESTINCTIONXX¥*¥* 


53@@ IFCC(1)=CC(2) ANDCC (2) =CC(3) ANDCC (3) 

=CC (4) ANDCC (4) =CC (5) THEN? 99E 

5316 GOTOLSE9IE 

6998 REMKXXXXHXFULL HOUSEXXX**¥ 
KHKHHKKHHHKHHKHKKHKK HK HK 

6918 PRINT" CHOME} 

6920 PRINT"{HOME}{CUR DN3{ CUR DN3{CUR DN 

>{CUR DN} : 

69398 PRINT"{HOME3 {CUR DN} {CUR DN}<CUR DN 

7{CUR DN?}{CUR DN}<{CUR DN}<CUR DN} {CUR DN 

+{CUR DN3{CUR DN} {RVS ON} {(GRNID 

OUBLE OR NOTHING(Y/N)" 

6949 PRINT" {HOME}{CUR DN}{CUR 

3{CUR DN}{CUR RT}{CUR RT}{CUR 

3{CUR RTF{CUR RT}{CUR RT}<{CUR 

}{CUR RT}<(CUR RT}{CUR RTF{CUR 

7{CUR RTI{CUR RTI{CUR RT}3<{CUR 


;L{QR}FULL HOUSE” 
S958 GETAS: IFAS< >" "THEN619E 


6968 FORA=1TO199: NEXT 
6976 PRINT" {CHGOME3}<(CUR 
{CUR DN} {CUR DN} {CUR 
{CUR DN3{ CUR DN} 
NOTHING (Y/N) " 


DN{ CUR 
RT?{CUR 
RTs( CUR 
RTs;<( CUR 
RTStRVS 


DN 
RT 
RT 
RT 
ON 


DNFTCUR DNFTCUR 
DN} {CUR DN; {CUR 
{GRN> DOUBLE 


DN 
DN 
OR 


6980 PRINT" CHOMES (CUR 


+{ CUR 
7{ CUR 


7{CUR 
;{ CUR 


DN {CUR 
RT3{CUR 
RT+{CUR 
RTS{CUR 


RT?( CUR 
RT?{ CUR 


RT3{CUR 
RT?{ CUR 
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DN? tT CUR 
RT3(CUR 
RT3(CUR 
RT?C€CUR 
RTF{CUR 


DN>{ CUR 
RTC CUR 
RT>{€CUR 
RT?{(CUR 


DIN 
RT 
RT 
RT 


RTS{BLUGFU 


LL HOUSE” 

689A FORA=1TO196: NEXT: GOTO693¢ 

6198 IFAS="Y"THENTT=4: NA=CREDIT: GOTOL5S9¢G 
g 

6195 @1=54276: @2=54277: @3=54278: POKEQ1,9 
"POKEG@2, 15: POKEQ3,9 

6196 POKE54296, 15: POKEQ@2, 64: POKEQ3,128:P 
OKEG@1,17 | 

6119 FORA=CREDITTOCREDIT+19¥BET: PRINT" {H 
OME}<CUR DN}{CUR DN}<CUR RT}{LT BLU}CRED 
IT: "3A 

6138 POKE54273, 44: POKES4272, 209: POKES42? 
3,9:POKE54272,@ 

6169 NEXT: CREDIT=A-1:GOTO1g99¢ 


649G REMKXXHXXKROVYAL FLUSHEKKKEE 
KKEEKHEKKK KEK HK KEKE 


64190 PRINT" (HOME 3 
6426 PRINT" THOME (CUR DNSCCUR DN3{CUR DN 


+{CUR DN? is 
64390 PRINT"{HOMES {CUR DN3{CUR DN3{CUR DN 


{CUR DN} {CUR DN} CCUR DNF {CUR DN}C(CUR DN 
{CUR DN {CUR DN} {RVS ONS {GRNID 
OUBLE OR NOTHING(Y/N)" 

64946 PRINT"{HOME3} {CUR DN} {CUR 
{CUR RT}CCUR RTF (CUR RTFCCUR 
{CUR RTS{CUR RTIICUR RTFL{CUR RT 3 (CUR 
{CUR RTFC(CUR RT}{I{CUR RT} {CUR RTF(CUR 
{CUR RTS CRVS ONFCLT BLUFROYAL FLUSH" 
64590 GETAS: IFAS*4 >" "THEN6S99 

6466 FORA=1TO1990: NEXT 
6476 PRINT" {HOME?TCUR 
{CUR DNI3ICUR DN {CUR 


+{CUR DNFC(CUR DN} 
NOTHING (Y/N) " 


RT3{ CUR 
RT{ CUR 


RT 
RT 
RT 
RT 


DN 
DN 
OR 


DNF{ CUR DNF{( CUR 
DN{CUR DN;{ CUR 
{(GRN+DOUBLE 


64306 PRINT" THOME (CUR 


7{CUR RTICCUR RTFCCUR 
s{ CUR RTS{CUR RT {CUR 


*{CUR RT {CUR RTFCCUR 


DN3(CUR 
RT}{CUR 
RT?{ CUR 
RT}(CUR 


{CUR RT}{ORFSROYAL FLUSH" 


RT{ CUR 
RT?{CUR 
RT3{CUR 
RT{CUR 


RT 
RT 
RT 
RT 


6499 FORA=1TO196:NEXT: GOTO6439 
S599 IFAS="Y"THENTT=1: NA=CREDIT: GOTO159¢ 


OG 
6965 @1=54276: @2=54277: @3=54278: POKEQ1,@ 
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*POKEG2, 15: POKEQ3,@¢ 

6596 POKE54296, 15: POKEQ2, 64: POKE@3,128:P 
OKE@1,17 

6519 FORA=CREDITTOCREDIT+S@9XBET!PRINT"€ 
HOME}{CUR DN}{CUR DN}{(CUR RT}¢LT BLU}CRE 
DIT:I "3A 
6539 POKE5S4273, 49: POKES4272, 269: POKES427 
3,9:POKES4272,9 
6569 NEXT: CREDIT=A-1:GOTO1999@ 
66GG REMKXXXXXFOUR OF A KINDXX#XX*¥ 
KK KHKHHH HH HHH KKK KKK KKK EH 

6619 PRINT" CHOME} 

6628 PRINT"{HOME}<CUR DN}{CUR DN3{CUR DN 
3{CUR DN} " 
66398 PRINT"{HOME}{CUR DN} {CUR DN}{CUR DN 
{CUR DN} {CUR DN}{CUR DN} {CUR DN}<{CUR DN 
3{CUR DN} {CUR DN} {(RVS ON} {GRN}D 
OUBLE OR NOTHING(Y/N)" 

6649 PRINT" {HOME} (CUR DN} {CUR 
2{CUR RT}{CUR RT}{CUR RT}<{CUR 
*{CUR RT} {CUR RT3{CUR RT}{CUR 
{CUR RT}(CUR RT}{CUR RT}{CUR 
{CUR RT}{CUR RT}{(CUR RT}{RVS 
FOUR OF A KIND" 

6659 GETAS: IFAS< >" "THEN6 799 
64660 FORA=1TO199!:NEXT 
66798 PRINT" {HOME}{CUR 
{CUR DN}{CUR DN}{CUR 
3{CUR DN3{CUR DN3 
NOTHING (Y/N) " 


DNs {CUR 
RTI{CUR 


RT${CUR RT 
RT?{CUR RT 


ONS{LT BLU 


DIN 
RT 


DNS TCUR DNF{CUR 
DN?{CUR DNs{CUR 
{GRN?+DOUBLE 


DIN 
DN 
OR 


6686 PRINT” {HOME} {CUR 


+{CUR 
3+{ CUR 
+{ CUR 
+(CUR 


RT>{€CUR 
RT?{ CUR 
RT3 (CUR 
RT3{CUR 


RT?}{CUR 
RTF( CUR 
RT}{CUR 
RT3{ CUR 


DN?3{ CUR 
RT3(CUR 
RT{ CUR 
RT?7{CUR 


DN3}{CUR 
RT}{CUR 
RT}{CUR 
RT}<{CUR 


DN 
RT 
RT 
RT 


RT?{QORSFOUR OF AK 


IND" 

6698 FORA=1T019@: NEXT: GOTO663¢ 

6798 IFAS="Y" THENTT=3:NA=CREDIT!: GOTO1L5S99 
g 

6795 @1=54276!: Q2=549277:03=54278: POKEQ1,¢ 
-POKEQ2, 15:POKEQ3,9¢ 

6796 POKES4296, 15: POKEQ2, 64: POKEQ3, 128:P 
OKEQ@1,17 


162 


6718 FORA=CREDITTOCREDIT+25¥BET:FRINT"{H 

OME}{CUR DN}{CUR DN}{CUR RT}{LT BLU}CRED 

IT: "2A 

6738 POKES4273, 49: POKES4272, 208: POKES427 

3,8:POKE54272,@ 

6768 NEXT: CREDIT=A-1:GOTO1999a 

68GG REMKXXHXHHXSTRAIGHT FLUSHKXXX*# 
FBI IIE 

68@5 IFCC(1)=CC(2) ANDCC (2) =CC (3) ANDCC (3) 

=CC (4) ANDCC (4) =CC (5) THEN64982 

6819 PRINT" {HOME} 

6826 PRINT"{HOME} (CUR DN3{CUR DN3<{CUR DN 

+{CUR DN} " 

6539 PRINT"{HOME}{CUR DN3{CUR DN}{CUR DN 

{CUR DN}{CUR DN}{CUR DN}{CUR DN3{CUR DN 

{CUR DN}<{CUR DN} CRVS ON}4GRNID 

OUBLE OR NOTHING(Y/N)" 

6849 PRINT"{HOME}{CUR DN3{CUR 

}{CUR RT}{CUR RT}{CUR RT}{CUR 

{CUR RT}ICUR RT}{(CUR RT}{CUR RT3{CUR 


{CUR RTIL(CUR RT}L{CUR RTIICUR RTI{(CUR 
*{CUR RTFCCUR RTF{RVS ON} LOR} STRAIGHT 


USH” 
68359 GETAS: IFAS< >" "THENGP SE 
6866 FORA=1TO1G9:.NEXT 
68790 PRINT" CHOME {CUR 


*;{CUR DNF {CUR DNC CUR 
+{ CUR DN} ICUR DN} 


NOTHING (Y/N) " 


DN {CUR 
RT?<{CUR 


RT 
RT 
RT 


RT 
FL 


DNS{CUR DNS{CUR 
DN {CUR DNI{CUR 
{GRN3DOUBLE 


DIN 
DN 
OR 


68839 PRINT" {HOME} {CUR 
{CUR RTFLCUR RTFTCUR 
{CUR RTF {CUR RT}{CUR 


DNF {CUR 
RTC CUR 
RTI{ CUR 
RT3( CUR 


DN?{( CUR 
RT>+{CUR 
RT>{CUR 
RT {CUR 


RT 
RT 
RT 
RT 


{CUR RT}{CUR RTF{CUR 
{CUR RT3{CUR RT3{LT BLU}STRAIGHT FLUSH" 
6898 FORA=1TO19@G: NEXT: GOTO6839 

6998 IFAS="Y" THENTT=2: NA=CREDIT: GOTOI599 
g 

69S@5 @1=54276: @2=54277! @3=54278: POKEGI,@G 
-POKEQG2, 15: POKEQ3,9 

6996 POKES4296, 15: POKEQ@2, 64: POKEQ3,128:P 
OKEG@1,17 

6918 FORA=CREDITTOCREDIT+i1@@*BET?: PRINT" { 
HOME}{CUR DN} {CUR DN}{CUR RT}{LT BLU}CRE 
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DIT: "sA 

6936 POKES49273, 49: POKES4272, 2909: POKES42?7 

3,9: POKES9272,9 

6966 NEXT: CREDIT=A-1:GOTO1LSB9G 

S7GBGDSHD REMKKKKKKFLUSHERERER 
KKEKKKEKKKKKKHKKKESE 

7619 PRINT" CHODME s 

78629 PRINT" CHOME3 {CUR DNS {CUR DN {CUR DN 


$< CUR DN 3 : 
S38 PRINT" {HOME}{CUR DN}{CUR DN3{CUR DN 


{CUR DNI{CUR DN}CCUR DNFCCUR DNFCCUR DN 
*{CUR DN}{CUR DN} {RVS ON} {GRN3D 
OUBLE OR NOTHING(Y/N) " 

7696 PRINT" {HOME} {CUR DN3{CUR DN3{CUR DN 
{CUR DN} {CUR DN}{CUR RTFCCUR RTFCCUR RT 
*{CUR RTF{CUR RT3{CUR RT3{CUR RT3{CUR RT 
+{CUR RTIC{CUR RTFCCUR RTICCUR RTSCCUR RT 
7{CUR RTI{CUR RTZ{CUR RT} {CUR RT3{CUR RT 
*{RVS ON} CLT BLU}FLUSH" 

209560 GETAS: IFAS< >""THENZ16¢9 

7966 FORA=1TO169: NEXT 

7678 PRINT" {HOME} {CUR DN3{CUR DN?{CUR DN 
*{CUR DN: {CUR DN} {CUR DN} CCUR DNCCUR DN 
*{CUR DN}{CUR DN} {GRNS$DOUBLE OR 
NOTHING (Y/N) " 

7630 PRINT" CHOME} {CUR DN} {CUR DN}{CUR DN 
*+{CUR DN} {CUR DN} {CUR RTFC(CUR RTSCCUR RT 
3{CUR RTFI{CUR RTF{CUR RTF{CUR RTF{CUR RT 
{CUR RT}{CUR RTF{CUR RTI{CUR RTFCCUR RT 
{CUR RTF {CUR RT3{CUR RT3{CUR RT}{CUR RT 
}{OR}FLUSH" 

“999 FORA=1TO19G: NEXT: GOTO7G3¢8 

gar = IFAS="Y¥" THENTT=S: NA=CREDIT: GOTO1LS99 


Fi1@ O1=549276! @2=54277:03=54278: POKEG1,@ 

/-POKEQG2, 15:POKEQ3,¢ 

7i2@ POKES42964, 15: POKEQ2, 64: POKEQ3,128:P 

OKE@1,17 

713@ FORA=CREDITTOCREDIT+7*BET:PRINT"{HO 

ME}{CUR DN}{CUR DN}{CUR RT}<{LT BLU}CREDI 
- "3A 

714 POKE54273, 48: POKES4272, 299: POKES427 

3,8: POKE5S4272,9 
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71359 
72066 


72160 


72268 
+{CUR 


NEXT: CREDIT=A-1:GOTO1S99S 


REMKXHXXXTHREE OF A KINDXXKXRKE 
KEKEKEKKKEEKKEKEKKEKKEEKEEEKKE 


PRINT" (HOME 3 


PRINT" CHOME; (CUR DN3{CUR DN3{TCUR DN 


DN > 


2236 PRINT" {HOME}; {CUR DN} {CUR DN3{CUR DN 
7€CUR DN} {CUR DN}ICUR DNI{CUR DN3{CUR DN 
{RVS ON {GRNID 


3{ CUR 


GUBLE OR NOTHING(Y/N)" 


DN3{CUR DN; 


2294996 PRINT" {HOME TCUR DNF {CUR 


*{CUR 
+{ CUR 


7{ CUR 
7{CUR 


LSCUR 
2568 
7269 


7276 


+{CUR 
7{ CUR 
NOTH 
7286 


+ {CUR 
s{ CUR 


+{ CUR 
3{CUR 


DN; (CUR 
RT{CUR 


RT?(CUR 
RTi{ CUR 


RT3 (CUR 


RT{CUR 
RTS{CUR 


DN}<CUR DN; {CUR 


RT{CUR 


RT{CUR 
RTs{CUuR 


RT}<RVS ON}C{ORSTHREE OF 
GETAS: IFAS< >" " THEN? 396 


FORA=1TO199;: NEAT 
PRINT" CHOME; {CUR 


DN} {CUR DN-C{CUR 


DN CCUR DN; 
ING (Y/N) " 


PRINT" CHOME} (CUR 
DN} C<CUR DNI( CUR 
RT({CUR RTF(CUR 
RT}{CUR RTFCCUR 
RT}({CUR RTF(CUR 


DN3{ CUR 
DN¢{CUR 


DN>(CUR 
RT<{CUR 
RTStCUR 
RT{CUR 
RT? (CUR 
A KIND" 


DNS{ CUR 
DNF (CUR 


{GRN> DOUBLE 


DN? {CUR 
DN} {CUR 
RTT CUR 
RT?{(CUR 
RT?{CUR 


DN{CUR 
RT}{CUR 
RT? (CUR 
RT3}C(CUR 
RT?{€CUR 


DN 
RT 
RT 
RT 
RT 


DN 
DN 
OR 


DN 
RT 
RT 
RT 
RT 


{CUR RT}€LT BLU} THREE OF A KIND" 

7298 FORA=1TO199: NEXT: GOTO723¢ 

2398 IFAS="Y" THENTT=4: NA=CREDIT: GOTO1599 

g 

27318 @1=54276! @2=54277: 03=54278: POKEGI,D 
> POKE@2, 15: POKEQ3,9¢ 

7328 POKE54296, 15: POKEQ2, 64: POKEQ3, 128:P 

OKEG@1,17 

7338 FORA=CREDITTOCREDIT+3¥BET: PRINT" CHO 

ME}<CUR DN}{CUR DN}{CUR RT{LT BLU}CREDI 
1s A 

7349 POKES4273, 49: POKE5S4272, 299: POKES427 


3192 POKES4272,@ 
359 NEXT: CREDIT=A-1:GOTOIL9gaq 


74G6HG REMKXKKKEKETWO PAIRSKKXKKKE 
KEKKEKHHKKKKKKKKKEHKKHKK 
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7419 PRINT" CHOME 3 
7426 PRINT" {HOMES {CUR DNSCCUR DNSCTCUR DN 
+{CUR DN? " 

74398 PRINT" {HOME} {CUR DN} {CUR DN3{CUR DN 
{CUR DN} {CUR DN} {CUR DN} {CUR DNstCUR DN 
3{CUR DN} {CUR DN} {RVS ONS (GRNSD 
OUBLE OR NOTHING(Y/N)" 

7494996 PRINT” {HOME} {CUR DN3{CUR 
+{CUR DN? {CUR DNFCTCUR DN (CUR 
7{CUR RTF{CUR RT3{CUR RT} {CUR 
{CUR RTFCCUR RTFC{CUR RTF CCUR 
3{CUR RTS{(CUR RT {CUR RTF{CUR 


DN3{CUR 
DN} {CUR 
RT?{CUR 
RT?{CUR 
RT?{CUR 


DN 
RT 
RT 
RT 
RT 


+{CUR RTFCCUR 
RS iT ] 


RT}{RVS ONFCLT BLUSTWO PAI 


49358 GETAS: IFAS< >" " THENY SSS 
7469 FORA=1TO196:.NEXT 
7976 PRINT" {HOME} {CUR 


{CUR DN (CUR 
{CUR DN3 {CUR 


NOTHING (Y/N) " 


DNF{CUR 
DN} 


74989 PRINT" {HOME} {CUR 


FTEUR BUS EUR 


{CUR RT?TCUR 
s+{CUR RT}3{ CUR 


DN{ CUR 
RT?{CUR 


RT3{CUR 
RT?{CUR 


DNF {CUR 
DNC CUR 


DNF {CUR 
DN? (CUR 


{GRN}DOUBLE 


DNS C{CUR 
DN; {CUR 
RT+{CUR 
RT?{CUR 
RTI{CUR 


DN (CUR 
DN{CUR 
RT{CUR 
RT?{(CUR 
RTI {CUR 


DIN 
DN 
OR 


DN 
RT 
RT 
RT 
FT 


{CUR RT}{(CUR RT}{OR} TWO PAIRS" 
7498 FORA=1TO19@: NEXT: GOTOG743¢ 
759G IFAS="Y¥"THENTT=7!NA=CREDIT: GOTO1599 
g 
7518 @1=54276!02=54277: @3=54278:FOKEQ1,9 
°POKE@2, 15:POKEQ3,@ 
7528 POKES4296, 15! POKEQ@2, 64: POKEQ3,128:P 
OKEQ@1,17 
753@ FORA=CREDITTOCREDIT+2¥BET: PRINT" {HO 
ME}{CUR DN}{CUR DN}{(CUR RT}{LT BLU}CREDI 
Ti"sA 
754@ POKE5S4273, 49: POKE54272, 268: POKES427 
3,G:POKES4272,90 
755@ NEXT: CREDIT=A-1:GOTO19999g 
76GG REMKXKXXKHXACE OR BETTERX#XXX% 

HHH III IH KEE IE IIE IIE HIE 


76196 PRINT" CHOME + 
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7626 PRINT" HOMES CCUR DNFC{CUR DN3{CUR DI 
+{CUR DN? * 
7630 PRINT" CHOMES (CUR DN3{CUR DN{CUR DN 


{CUR DN} (CUR DN}{CUR DNF {CUR DN {CUR DN 
4{CUR DN}3{CUR DN} {RVS ON} {GRNZD 


OQUBLE QR NOTHING(Y/N)" 

764998 PRINT"{ HOME} (CUR DN3<{CUR 
{CUR DNICCUR DN{CUR DNF CCUR 
S{CUR RT3LCUR RTI{CUR RT}I{CUR 


{CUR RTIC(CUR RT}<{CUR RT}<{CUR 
7{CUR RT?{CUR RT}{(CUR RT3<{ CUR 


(CUR RTI{( CUR RT}{CUR RT}CRVS 
OR BETTER" 


7650 GETAS: IFAS< >" "THENY AOS 
7660 FORA=1TO19696: NEXT 
7670 PRINT" CHOMES {CUR 
{CUR DNILCUR DNC CUR 
3,{CUR DN3ICUR DN} 
NOTHING (Y/N) " 


DNSTCUR 
DN} C€CUR 
RTS {CUR 
RT?{CUR RT 
RTS{CUR RT 
ON} LORSACE 


Div 
DN 
RT 


DN3S(CUR DNF {CUR 
DN}<CUR DNC CUR 
{GRN DOUBLE 


DN 
DN 
OR 


7686 PRINT" (HOMES (CUR 


7 {CUR 
3{ CUR 


7{CUR 
+<{ CUR 


+{ CUR 


DN?{CUR 
RT3{( CUR 


RT?( CUR 
RT3(CUR 


RT?<{CUR 


DN;( CUR 
RT{CUR 


RT{CUR 
RT3{CUR 


RT3{CUR 


DNF{CUR 
DN{ CUR 
RTI{CUR 
RT?{CUR 
RTS( CUR 


DN{ CUR 
DN (CUR 
RTS{CUR 
RT( CUR 
RT?{CUR 


DN 
DN 
RT 
RT 
RT 


RT}{LT BLUZACE OR 


BETTER" 

7698 FORA=1TO1@@6: NEXT: GOTO763¢ 

7798 IFAS="Y"THENTT=8: NA=CREDIT: GOTO1L599 
a) 

P71GB @1=54276: G2=54277: O3=54278: POKEG1,@ 
:POKEQ@2, 15: POKEQ3,9 

7728 POKES4296, 15: PUKEQ@2, 64: POKEG@S, 129:P 
OKEQ@1,17 

773@ FORA=CREDITTOCREDIT+1#BET: PRINT" {HO 
ME}<CUR DN?}{CUR DN}{CUR RT}{LT BLU}CREDI 
Ti"GA 

774G POKES4273, 46: POKES4272, 269: POKES427 
3,9:POKE54272,@ 

775@ NEXT: CREDIT=A-1:GOTOIssa9g 

1999@ FORA=1TO5:CA(A) =8: NEXT: DD=@:GOTO11 
15948 PRINT"{CLRICHOMEF {RVS ON FKKKKKKHHHE 
%¥--DOUBLE OR NOTHING—-XXXXXXKHH" 

15991 PRINT"{HOME3{(CUR DN3<CUR DN3<{CUR D 
N}<CUR DN}<€CUR DN}{CUR DN3<CUR DN}<{CUR D 


167 


N3{CUR DNICCUR DN} {CUR RTF{CUR RT3{LT BL 
US NEF FL 

@CREDIVVUVVUVEILT BLU}? " 
15692 PRINT"{CUR RTFCCUR RTFSZCREDIVVUVUVE 
LT BLU}’ 
*LREDSVVVVVULLT BLU}’" 
1353993 PRINT" {CUR RTF{ CUR RTFZCREDIVUVVVE 
LT BLU}’ 
MLC REDIVVVVUVELT BLU}’ " 


15994 PRINT" {CUR RT}{CUR RT}%{(REDIVUVVVS 
LT BLU}? 


2ZCREDIVVVVV{LT BLU}? " 

15995 PRINT"*CCUR RTI CUR RT FMSSSFSFBN" 
15196 PRINT" {HOME}<{CUR DN}{CUR DN}{CUR R 
T3CCUR RTFC{CUR RTFLCUR RTILICUR RTFCTORI6 
AND ABOVE ARE BIG" 

15116 PRINT"{CUR RT3{CUR RT {CUR RT3{CUR 
Ra ees RT3{LT BLUFS AND UNDER ARE SMAL 


15129 PRINT"{CUR DN3{CUR DN3{CUR DN3{ICUR 
RT}{CUR RT}{CUR RTI{CUR RTI{LCUR RTFLCUR 


RT3{CUR RTI{CUR RT3{CUR RT3{CUR RT3{CUR 
RTSCWHT?’ BIG’ OR ’SMALL’" 


15139 GETAS: IFAS< >"S"ANDAS< >" B" THEN1513¢ 
15131 IFAS="B"THENPRINT"{CUR UP; {CUR RT 3 
{CUR RT3{CUR RT3{CUR RTF{CUR RT3{CUR RT} 
{CUR RT} {CUR RTI(CUR RTICCUR RTICCUR RT} 
{WHT}’° £RVS ON} {PUR} BIGCWHT}{RVS OFF}? " 
15132 IFAS="S"THENPRINT" {CUR UP; {CUR RT3 
{CUR RT3{CUR RT{CUR RT3{CUR RT3 {CUR RT3 
{CUR RT}{CUR RT}C{CUR RTFLCUR RTF{CUR RT? 
{WHT?’ BIG’ OR ’{RVS ON} £PURSSMALLIWHT}{R 
VS GRE” 

15196 T=1:C C1) =INT(RND(1)#¥12)+12CC(1)=I1N 


T(RND(1)%*3) +1 
15195 PS="{HOME3 {CUR DN3{CUR DN3{CUR DN} 


{CUR DN3{CUR DNF{CUR DN?{CUR DN?{CUR DN? 
‘CUR DN3}{CUR DN}{CUR DN}{CUR RT}{CUR RT} 


151598 IFCC(1)=1THENGOSUBI9SS 
15166 IFCC (1) =2THENGOSUB2999D 
151760 IFCC(1)=3THENGOSUB3999 
151896 IFCC(1)=4THENGOSUBSSISID 
135196 IFC (1) >=6THENPRINT" {HOME} {CUR DN3¢ 
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CUR 
CUR 
CUR 
CUR 


CUR 
IG" 


DN CT CUR 


DNC CUR 


DN {CUR 
RT? {CUR 
RT?{CUR 


DNC CUR 
DNC CUR 
DNC CUR 
RT?{ CUR 
RT}{CUR 


DNC CUR 
DNSi{ CUR 
DNs{CUR 
RT?{CUR 
RT?{RVS 


DN(CUR 
DNS TCUR 
RT3{CUR 
RT{€CUR 


DNi¢ 
DN3¢ 
RT3¢ 
RT3¢ 


ON?{LT BLUGB 


152608 IFC (1)<=STHENPRINT" CHOME} (CUR 


CUR 
CUR 


CUR 
CUR 


CUR 


DN? {CUR 
DN? {CUR 


DN: {CUR 
RT3{ CUR 


RT( CUR 


MALL" 
15216 IFAS="B"ANDC (1) <=STHENFORA=1TOS9SG: 
NEXT: GOTO1S968 
15226 IFAS="S"ANDC (1) >=464THENFORA=1TO590@: 


NEXT: GOTO1LSSSS 
15224 IFAS="B"ANDC (1) >=6THENBB=1 


DN} {CUR 
DNF{ CUR 


DN( CUR 
RT?{ CUR 


RT3}{CUR 


DN {CUR 
DN {CUR 
DN3{CUR 
RT?{ CUR 
RT {RVS 


DN? (CUR 
DNF(CUR 
RT+{CUR 
RT{ CUR 


DN>¢ 
DN 
DN> ¢ 
RTs¢t 
RT3¢ 


ON {LT BLUIS 


15225 IFBB=1THENPRINT" {HOME} (CUR 


DN? {CUR 


DN;{ CUR 
DN} {CUR 
RTC{CUR 
RT}{CUR 


RT?{CUR 


DN {CUR 
DN{( CUR 
DN>{CUR 
RT?{CUR 
RT}{CUR 


RT><(CUR 


DN {CUR 


DN{( CUR 
DN3{ CUR 
RT?{CUR 
RT3{CUR 


RTs{CUR 


DN 3{ CUR 
DN{CUR 
DN>{CUR 
RT {CUR 
RT3{CUR 


RT3{CUR 


RT3{GRNFYOQU WIN! !" 


15226 POKEW1,17:POKEA1, 15: POKEV1, 


DN}( CUR 
DN (CUR 
DN3{ CUR 
RT{ CUR 
RT<( CUR 
RT3 (CUR 
RT?{ CUR 


15 


135230 FORA=NATONAtPP (TT) *¥2: PRINT” CHOME> ¢ 
CUR DN} {CUR DN 3CCUR DNI{CUR DN3{CUR DNit 
LT. BLUSCREDIT: "A: POKEH1I, 49: POKEL1, 296 

15246 POKEH1,@:POKEL1,@: NEXT: POKEW1,9:°PO 


KEA1,@:NA=A-1 
15259 PRINT" £HOME} 


15269 FORA=iTOS@G: NEXT 


15590 PRINT" (HOME}{GRN} C{RVS ON> 
DOUBLE OR NOTHING(Y/N) " 

155935 FORA=1T056: NEXT 

1355196 PRINT" CHOME?: (GRN > DOUBLE OQ 


R NOTHING (Y/N) " 


15526 GETAS: IFAS< > "Y"ANDAS< > "N" THENI15269 


15539 IFAS="Y"THEN1I5999 
15549 CREDIT=NA: GoToLsgeag 
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CHOP AND CHANGE 


This is a puzzling Little program which provides far 
more of eae challenge than you might think at first. 


ee Mee ON ae 

iti 4 Serda - tlw Mile 
t aaa i  -_ © 
. . on bd Dar A Py . e 


The computer will generate a random pattern of O's’ and 
X's something Like the following: 
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0O0O0xX 0X OX X 


1234567 8 


NUMBER TO CHANGE? 7 
Hidden deep in its metal mind, the computer has a 


pattern which determines which symbols change when you 
enter a number (which must be greater than zero): 


00xX 0X O XK X 
1-203) 4 5:6 7 8 


YOU HAVE 4 RIGHT 
AFTER MOVE 3 


NUMBER TO CHANGE? 6 


00x 0X 00 XK 


1°27 34567 8 


YOU HAVE 5 RIGHT 


You are aiming to get all the X's to turn into O's, and 
in this sample game, success does not take Long: 
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0000000 X 
V 227345 6, 7. 6S 
YOU HAVE 7 RIGHT 
AFTER MOVE 7 


NUMBER Til) CHANGE? 7 


0000000 90 


1os2e 3) Ue be eeret © 


YOU DID IT IN 8 MOVES 


BEST SO FAR IS 8 
Once you've played the game a few times, you'LL begin to 
see how the game works, and you'Ll quickly deduce which 


numbers to enter to get the pattern to alter as _ you 
wish. Sometimes it is not easy: 


Or Or Oy Ke OOo. 


YOU GAVE 7 RIGHT 
AFTER MOVE 14 


NUMBER TO CHANGE? 15 


0000000 0 


12345 67 8 


YOU DID IT IN 15 MOVES 


BEST SO FAR IS 8 
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Note, also, that a 
introduced in Line 310 to keep you on your toes. 


16 
26 
36 
49 
ay) 
69 
76 
39) 


96 


slight element of randomness 


REM CHOP & CHANGE 


HS=1099 

DIMA(?) 

GOSUBS369: REM 
GOSUB11¢0:REM 
GOSUB259: REM 
GOSUB1196:REM 
GOSUB3496: REM 


GOTO6S 


INITIALISE 
PRINT OUT 
PLAYER INPUT 


PRINT OUT 
CHECK RESULT 


1GGH REM KKEHKKKKKY 
11986 REM PRINT OUT 


126 PRINT"{CLR}" 


136 IFHS< 1 G@SGTHENPRINT: PRINT" BEST SO FA 


R I 
149 
156 
16 
179 
1386 


199 
286 
219 
2208 
239 
248 


259 
268 


276 


230 
298 
3GDB 
316 
329 
348 
3368 
53698 


37h 
38h 


39h 


S"HS 
GOSUB29¢ 
FORJ=1T0s 


PRINTCHRS(A(J))5" "5 


NEXT J 
PRINT: PRINT 
PRINT"1 2 3 
FORJ=1TOS 
PRINT 

NEAT J 
RETURN 


4935 6 7 &" 


REM HHEKKHKKKKKKKE 
REM PLAYER INPUT 


PRINT 


INPUT"NUMBER TO CHANGE";P 


P=P+X 


IFPOSTHENP=P-2?: GOTO2?9Sh 


IFP< @THENP=P+t9?: GOTO399 
IFA(P) =S8ANDRND(1)>.1THENA(P) =?79 


RETURN 


REM HHHKKKKKKHHKE 


FL=9 
MO=MO+1 
FORZ=17T08 


IFA (2) =79THENFL=FL+1 


NEXT 2 


is 


4g 
419g 
429 
43g 
44¢ 
45g 
46q 
APG 
4gg 
49@¢ 
Sag 
512 
520 
53g 
54g 
552 
56g 
576 


338G 
ve hed 2) 


665 
6196 


IFFL=8THEN45@: REM WIN 
PRINT:IPRINT"YOU HAVE"FL"RIGHT" 
PRINT:PRINT"AFTER MOVE"MO 
RETURN 

REM *** 

REM WIN 

PRINT: PRINT 

PRINT"YOU DID IT IN"MO"MOVES" 
IFMO< HSTHENHS=MO 
PRINT:PRINT"BEST SO FAR IS"HS 
FORT=1TO299@:NEXT T 

GOoTO4s 

REM XXXKKK KKK KHEK 

REM INITIALISATION 

REM 

FORJ=1TOS 

A(J)=88 

IFRND(1) >.6THENA(J)=79 

NEXT J 

MO=6 

X=INT(RND(1)*7) 41 

RETURN 


READY. 
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POWER PLAY 


Your brilliant mathematical mind, and that of your 


computer, are Locked in a deathless struggle to achieve 
numerical domination. 


ree Wee 
Pisses EE 


‘MUA ety 


: d i a Y \ 
* ees? A ’ 5 
—_ mi t 
ne ’ 
. oe ‘ '] = 
a, GT, . : 
a q % 
e ‘ 


4 
2 E 


Fe 4 : a 
"ay a LA . ‘ 
a ae | \h) aa 
mM . ’ 
fl % ‘ . 1 


At the start of the game, you're both issued with Large 


numbers, chosen at random. You are told what your number 
i but you do not know what number the 


computer has 
been blessed with. 
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The aim of the game is to exceed the other player's 
number by 1000000. Once you each have a number, you take 
away numbers from your opponent, simply by asking ffor 
them. For example, if the computer's number was 104637, 
and you said "Give me your 6's", 600 would be added to 
your number, and 600 subtracted from the computer's 
taily. If you asked for its 1's, 100000 would be added 
to your number (and —- in this case - you'd probably 
win). 

At the end of the game, the changes in fortune which 
took place as it was running are shown. Here's part of a 
sample game to show you what I mean: 


Your number is 178275 


Please give me your 8 's 


Thank you! 
Your number is now 170275 
Which number would you like? 6 


You've got them 


Your number is 170281 


Please give me your 9 ‘Ss 


OK 
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Your number is now 170281 
Which number would you like? 3 


Sorry, I don't have any 


Your number is 170281 


Please give me your 2 's 


Thank youl 
Your number is now 170081 
Which number would you like? 7 


You've got then 
Your number is 170781 
Please give me your 4 's 


OK 


Your number is now 170781 
Which number would you like? 9 


Sorry, I don't have any 


Your number is 170781 


Please give me your 5 ‘'s 


OK 
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Your number is now 170781 
Which number would you like? 2 


You've got them 


Your number is now 170781 
Which number would you like? 2 
You've got them 


That's the end of the game 


You won that game... 


My final number was 10040 
yours was 370781 


Here's how the game went: 
Yous 170275 Me: 210546 
You: 170281 Me: 210540 
Yous Tp 0Ce4 Me: 210740 
YOu “SPOT ol Me: 210040 
Yous 1707-1 Me: 210040 
You; 3707814 Me: 10040 


This Listing will give you the chance to fight it 
with your computer in a round of POWER PLAY: 


1G 


29 
3G 


49 
3G 


REM POWER PLAY 

DIMH(?7) ,C(7) ,P (1999) 

REM 

PRINT" {CLRI"2S PRINT 

HI=INT CIG*S#HERND (1) #9P+1GHRNDCLIKESSS+R 


ND (1) #999) 


69 


PRINT"STAND BY..." 
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out 


78 CLI=1G9°Sti GEINT (RND (1) 9999) +INTCRND(1 


V¥SFPYP) 
SG IFABS(C1-H1) >198*5THENSS 
9G CO=8 


19G@G 
119 
129 
130 
149 
159 
16G 
176 
18d 
19° 
28D 
216 
228 


2368 
248 


PRINT" {CLR}" 
PRINT:PRINT 

PRINT"YOUR NUMBER IS"H1 
M=19°6 

FORX=7TOLSTEP-1 
H(X)=8:C(X) =¢ 
C(X)=INT(C1/™M) 
H(%)=INTCH1/M) 
C1L=C1-M*C(X) 
H1=H1-M*¥H (xX) 

M=M/1G 

NEXT X 

C1i=8:H1i=9 

M=INT (RND(1)¥8) +2 
Y=1L!:FL=9 

PRINT: PRINT"PLEASE GIVE ME YOUR"M"’S 


FORK=1TO1699:NEXT K 
PRINT: PRINT 


FORX=1TO? 

IFH(X) =MTHENCI=C1tY#HCX) SH(K) =O: FL=a1 
Y=H1GKY 

NEXT xX 

IFFL=1THENPRINTTAB(8)5 "THANK YOU!" 


IFFL=STHENPRINTTAB(?) 
Y=1 

FORX=1TO? 
H1L=H1I+YX#H(X) 
C1l=C1litVYRC (XR) 

YT=1GBKY 

NEXT xX 

PRINT: PRINT" YOUR NUMBER IS NOW"H1 
CO=COr1 

P (CO) =H1 

CO=COr!1 

PRINT: PRINT"WHICH NUMBER WOULD YOU L 


"QK" SPRINT 


P(CO)=Cl1 
INPUTNU 
IFNU=10RNU >? THENYSS 


476 
489 
496 
IOP 
319 
~32g 
338 
7346 
vas bas 
369 
376 
ats $2) 
39S 
656908 


1 
614 
6260 
538 
Erm" 
635 


PRINT 

M=19°6 
FORXK=7TOISTEP-1 
H(X) =82C(X) =f 
CCX) =INT(C1/M) 
H(X) =INT(H1/M) 
Ci=C1-MkC(X) 
H1i=H1-M*¥H(X%) 
M=M/1¢4 

NEXT XxX 
H1=6:C1=0 
FL=6:Y=1 
FORX=1TO? 
IFNU=C (X) THENH1=H1+Y*C (XX) 2C (KK) =68:FL= 


Y=1G0*Y 
NEXT xX 
IFFL=1THENPRINTTAB(4)3;"YOQU’VE GOT TH 


IFFL=@THENPRINTTAB(7)3; "SORRY, I DON?’ 


T HAVE ANY"NU"’ 3S" 


640 
65d 
666 
676 
686 
696 
19D 
71D 


720 
ME" 


239 


746 
7435 
7I8 
768 


776 
789 


79D 
SOG 


31G 
S20 


338 


FORK=1TO150@0:NEXT X 

Y=1 

FORX=1TO? 

H1=H1L+VY¥HXH(X) 

Ci=Cit+VY¥C (xX) 

Y=1GKY 

NEXT xX 

IFABS(H1-C1)<¢19°STHENIDS 

PRINTS PRINT"THAT’S THE END OF THE GA 


PRINT: PRINT 

IFHi+C1iTHENPRINT "YOU"; 
IFC1>H1ITHENPRINT"I" 5 

PRINT” WON THAT GAME..." 

PRINT: PRINT"MY FINAL NUMBER WAS"C1 
PRINTTAB(S8)3; "YOURS WAS"H1i: PRINT 
PRINT"HERE’S HOW THE ACTION WENT: " 
FORT=1 TO CO STEP2 
PRINT"YOU: "P(T), "ME: "P(T+1) 


FORY=1TO1966°:; NEXT Y 
NEXT T 


PRINT" YOU: "H1, "ME: "Ci 


READY. 
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BUNCO 


Here's a dice game for up to five players plus’ the 
computer. It's easy to play, with your computer doing 
most of the work. The following sample run will show you 
how simple it is. 


First the computer asks how many people are playing and 
gets their names: 
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HOW MANY PLAYERS (1 TO 5)? 2 


NOW WE'LL GET THE PLAYERS* NAMES 
@ PIZZA 
? MAGPIE 


Next, the 'bunco point' is selected: 


FIRST WE NEED THE BUNCO POINT 


PRESS ANY KEY TO GET BUNCO 


THE BUNCO POINT IS 4 


The players now take it in turns to roll three dice, 
scoring each time the bunco point shows up. The only 
roll which counts is the final one in a Set: 


THE COMPUTER'S SCORE IS 0 


> THIS IS THE COMPUTER'S ROLL < 


HERE WE GO... 
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MY DICE FELL 5 2 5 


THE COMPUTER'S SCORE IS NOW 0O 


er ee, ee ee a 
THE BUNCO POINT IS 4 
1 3 

1. 2 22 

1 4 5 KKk<ee- 
MAGPIE'S DICE FELL i 4 5 
MAGPIE'S SCORE IS NOW 1 
S82 a ES ee eS ee 


THE BUNCO POINT IS 4 


MAGPIE'S SCORE IS 1 
-~> IT IS MAGPIE'S TURN <eq= 


PRESS A KEY TO ROLL... 
4 6 J <<<se2 


MAGPIE'S DICE FELL 4 6 1 


MAGPIE’S SCORE IS NOW 2 


But mere humans should be wary of trying to defeat a 
mighty machine, as this game demonstrated convincingly, 
by getting a total of five before the other players: 
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MY DICE FELL 2 4 2 


THE COMPUTER'S SCORE IS NOW 5 
aS oe ae See ee er Ok ee ee ee 


THE WINNER IS THE COMPUTER 
THE OTHERS... 
PIZZA = 4 


MAGPIE - 4 


Stop the bunco now and start a-rolling: 


19 REM BUNCO 

26 GOSUB9SS: REM INITIALISE 

36 PRINT"{CLR3": PRINT: PRINT 

46 PRINT"FIRST WE NEED THE BUNCO POINT" 
738 REM 

66 PRINT:PRINT 

78 PRINT"PRESS ANY KEY TO GET BUNCO" 
86 GETGS: IFGS=""THENSS 

9G PRINT 

1690 FORT=1TO1969 

116 D=INT(RND(1)*6) +1 

126 IFRND(1)>.9THENPRINT 

130 PRINTD; 

1496 NEXT T 

156 GOSUB 1959 

169 PRINT"CCLRI"S PRINTS PRINT 
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179 FORJ=1TOAt! 

189 PRINT: PRINT"@ * © *¥ @©@ *¥ @©@ ¥ © X¥ C 
Cx Cx C@# CX "SPRINT 

1996 PRINT" THE BUNCO POINT IS"D:PRINT: PRI 
NT 

296 PRINT: PRINTQ$(J)5"’S SCORE I[S"Z2(J) 
216 IFI>1THENS29 

2206 PRINT: PRINT"> THIS IS THE COMPUTER’S 


ROLL <" 
239 GOSUB1IGS59: PRINT 
24996 PRINT"HERE WE GO...":GOQSUB19S9 


268 GOSUB799 

278 PRINT:PRINT"MY DICE FELL"D1;D23;D3 
289 GOSUB195¢ 

298 GOSUB799 

398 GOSUB1959 

S19 GOTO42g 

326 PRINT:PRINT" -> IT IS "3@%(J)""S TUR 
N <-" 

338 PRINT:PRINT"PRESS A KEY TO ROLL...” 
349 GETGS: IFGS=""THEN3S49 

358 PRINT"{CLR}" 

36G GOSUB79¢ 

378 GOSUB1959 

389 PRINTQ#(J)3""S DICE FELL"D1;D25;D3 
399 GOSUB195¢ 

498 GOSUB799 

419 GOSUB195¢ 

42@ IFZ(J) >4THENE=J:GOTOS19 


438 NEXT J 
449 FL=a 


43596 FORE=1TOAt1 

466 IFZ(E) >4THENFL=E 

476 NEXT E 

$80 IFFL=G@THEN169¢ 

496 E=FL 

IIB REM HKEKKHKKHKHKKKKKKKKHKHHKH 

316 REM END OF GAME 

326 PRINT"@ *¥# @ ¥ @©@* @©@X¥Cx*CxX*EC*KEG 
%* @ * CC "SPRINT 

3309 PRINT"THE WINNER IS "SQS(E) 
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349 PRINT 

SS@ PRINT"THE OTHERS...":GOSUB1959 

3769 PRINT 

3768 FORJ=1TOAt1 

388 IFJI=ETHEN619 

379 PRINTQS(J)3" - "32(I) 

69960 PRINT 

6196 NEXT J 

629 END 

639 PRINT: PRINT 

646 PRINT"AND "5;Q%S(J)5" WINS" 

659 PRINTTAB(6)5 "WITH BUNCO!" 

668 GOSUBI1OSD 

676 E=J 

63898 GOTOS4¢6 

SPG RM KKEKHKKKKKKKKKKKKEKKKEKE 

768 REM ASSESS DICE 

2198 IFD=DIANDD1=D2ANDD2=D3THENPRINT "BUNC 
rir") GOTO639 

726 IFDI=DTHENZ(J)=Z(J)+1 

746 IFDS3=DTHENZ(J)=Z(I3) +1 

73590 PRINT: PRINT@Q$(J)5"’S SCORE IS NOW"Z ( 

J): GOSUBI1SS5¢6 

766 IF (D1=D GRD2=D ORDS=D) ANDZ(J) <STHENJT 

=J-1 

776 RETURN 

7BGB REM HKEKKXKEKKKKKKE 

72°98 REM THE DICE 

866 FORS=1TO29 

310 DI=INT(RND(1)%¥6)+1°:PRINTD1I; 

S29 D2=INT (RND(1)#6)+1°PRINTD2;5 

8390 D3=INT (RND(1)¥6)+1:°PRINTD35 

849 IFD1=DORD2=DORD3=DTHENPRINT" <<<---" 


S568 PRINT 
S69 NEXT S 
S70 PRINT" ------------- corr coro ccc cfc ccc 


S388 RETURN 

SPD REMEKKKKHEHKKKKEKKKKEKKKKEE 
999 REM INITIALISATION 

919 PRINT" {CLR}" 

929 REM 

939 PRINT: PRINT 
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949 PRINT"HOW MANY PLAYERS (1 Ta 5)" 
945 INPUTA 

959 IFA<10RA>STHENS4S 

96G DIMZ(At1) , Q@B(At1) 

978 PRINT"{CLR}":PRINT: PRINT 


989 PRINT"NOW WE’LL GET THE PLAYER’S NAM 
ES a 


99O OS(1)="THE COMPUTER" 
19990 FORB=2TOAtI1 
1616 PRINTB-13;"-"5 > INPUTQS(B) 


1G296 NEXTB 
19390 RETURN 


1G4G REM HHKHKHKKKKKKE 

1950 REM DELAY 

1966 FORP=1TO1399:NEXT P 
1978 RETURN 


READY. 
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STARBASE 2000 


The residents of Starbase 2000 have been hit by an 
outbreak of Quintett Plague. A distress message has been 
received at HQ and you have been despatched with the 
necessary serum to save the residents' Lives. 


However, the people who control the movement of the base 
through space have come down with Quintett, and the base 
has wandered quadrillions of miles from its proper 
position. Therefore, you have to locate the missing 
Starbase, and take your craft there with the _ serum, 
before all the inhabitants are dead. 
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The Galactic Area within which you will find the 
Starbase is very, very Large, and heavily populated. Not 
only are there are other starbase in the sector, but a 
number of alien races — not friendly to humankind — also 
spend their time in this Area. While attempting to find 
the Starbase 2000 and get to it, you have to avoid 
running into friendly starbases and not-so-friendly 
aliens, and make sure you do not run out of energy 
.before your task has been carried out. 


A number of other incidents Lie in wait for you as_ you 
undertake this quest. You will find that only a few of 
them will be triggered each run of the game, so it will 
differ considerably from run to run. As well, the 
Location of every object in the Galactic Area (you, 
aliens, starbase and Starbase 2000) changes from game to 
game. 


Once the computer has distributed the contents of the 
Area, you'LL be told where you are: 


You are in Hyades sector 


ae weame ws waa ee ew ewearaaerom oem erm esa ee aw aw es a we ae @ SP cm @ aw se = ez 
ao wero ae Se ae weeaenwemwew es eer ntweweoeaaoegemmeagtneemee es wwe ewes Se ees eS & ase a= = 


BRENERGY BANKS HOLD 300 


If you decide to use your scanner, it will scan the 
sectors immediately surrounding the one you now occupy, 
giving an S for a starbase, and anA for an alien. As 
you'll see in this run, the scanner has also Located 
Starbase 2000: 
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Do you want to use scanner (Y or N)? Y 
>Stand by for scan...>S>SSA>>SA>DA 
oceee eSlTARBASE 2000 DETECTED!..... 
S>O>SADAD>>>>>>> 


Closest alien: Scan reading of 2 
Closest starbase: Scan reading of 1.414 


Scan on Starbase 2000 returns: 3.605 
It is within range 


Each turn gives you a number of options: moving, 
scanning and firing: 


Scan on Starbase 2000 returns: 3.605 
It is within range 


v Your galactic co-ordinates: 31 30 


Do you want to move ship (Y or N)? Y 
Which direction (N, S, E or W)? N 


2:33: You are in Hyades sector 


eoq@aergnge»&#owaewePeepnrPrmeee@ween@eaqeeq@@meqee@ee@e@ @& @& wena @ @ ae a = ae 


#*ENERGY BANKS HOLD 297.025 
Do you want to use scanner (Y or N)? N 


Do you want to fire Photons (Y or N)? Y 
AT WHAT FORCE (2 TO 8)? 5 
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IN WHICH DIRECTION (N, S, E OR W? N 


Sector beam 1 ...NOTHING 
Sector beam 2 ...NOTHING 
Sector beam 3 ...NOTHING 
Sector beam 4 ...NOTHING 
Sector beam 5 ...-NOTHING 
S®ENERGY BANKS HOLD 284.525 


As you move through space, your energy reserves are 
slowly diminished. Not only do you have to keep an eye 
on these reserves, but you must be ready to duck if one 
of the pesky aliens tries to Lay a shot on your ship: 


ALIENS AT 31 32 ARE FIRING AT US SIR... 


#STHEY MISSED! ! 


Survive that, and the universe has other problems’ to 
throw at you: 


VVVVVVVVVVV¥¥YVVUVVVVVVVVVVVVVVVVVVVVVVV 
Navigation reports unusual atomic 
activity at magnitudes 4.8 and 10.13 
from Kapteyn's, apparently directed 
towards UV Ceti A and B,.. 

This Su,gests our scanner output 

may be inaccurate... 


A captain's lot is not a happy one, as some of your 
decisions turn out not to have been very wise: 


You are in Hyades sector 


eniweremeeée ee SF SB Se ee wawewaeeet awe Fe aw @ aw == & aes oF anwieanpnae ea ese @ & qw ee Gs «= ea 
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®®ENERGY BANKS HOLD 135.9125 


Do you want to use scanner (Y or N)? N 


a a 


v Your galactic co-ordinates: 30 29 
Do you want to move ship (Y or N)? N 


Do you want to fire Photons (Y or N)? Y 
AT WHAT FORCE (2 TO 8)? 6 


IN WHICH DIRECTION (N, S, E OR W? E 


Sector beam 1 

YOU HIT A FRIENDLY STARBASE! 
Sector beam 2 ...-.NOTHING 
Sector beam 3 

ALIEN SHIP DESTROYED AT 30 32 
Sector beam 4 ...NOTHING 
Sector beam 5 ...NOTHING 
Sector beam 6 

ALIEN SHIP DESTROYED AT 30 35 


And the universe continues to take its toll of well-Laid 
plans: 


VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV 
Signals received from direction of the 
Horsehead Nebula at 337 Parsecs show 
excesSive sodium measurement in 
the interstellar dust cloud... 
We must divert 12% of our energy to 
strengthen our shields... 
Energy banks now hold 52.73125 
After shieid strengthening, energy 
banks report a reading of 41.13037 
4 

#®ENERGY BANKS HOLD 41.13037 
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> WARNING ! < 
> WARNING ! < 
>» WARNING ?! < 
ENERGY RESERVES #®LOW® 


YOU MUST FIND A STARBASE SOON 


But if you are clever (and perhaps a Little Lucky) 
eventually you will save the day (if not the world): 


You are in Eridanus sector 


Ce ee ee ee Oe ee ee  —  -  - —  - - e- - —  — — -  —-  — — —-  e ed 


Ship's Log stardate 1011 Aliens: 2 


esowramrmrwaoarcegemer ee Oo fe wBeawmnemawoen ws w= wow @ ow ac aware ce eB ce co ae cw oH ap oe Be ow ss = ae mf 


v Your galactic co-ordinates: 30 °?5 
BS ENERGY BANKS HOLD 30.68037 


> WARNING ! < 
> WARNING ? < 
> WARNING $ < 
ENERGY RESERVES *LOW® 


YOU MUST FIND A STARBASE SOON 
Do you want to use scanner (Y or N)? Y 
>Stand by for scan,...>AA>S>ADS>>OSADA 


eon enone. 200 DET ECE DY ance. 
>> >SP>> DDD 


Closest alien: Scan reading of 2.828 


Closest starbase: Scan reading of 3.162 


Sean on Starbase 2000 returns: 3.602 
It is within range 
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Do you want to move ship (Y or N)? Y 
Wiuiech direction (N, S, E or W)? E 


gaqweqaeFeé@e@eeeeeFreegeeqgeq@eg@qaoeqmqgqqo@ @e@@ @ @& ewe @ wm & eg & Ge Ge &@& 2 & & & ow 
aneeagea@eeeee FP eens aeaeeag@&@ @ @ @& & @& @& aes @e & @ & GB te ae @& a= @& .» FF ow 


1012 STARBASE RESIDENTS ARE STILL 
ALIVE, AND WILL NOW LIVE BECAUSE OF THE 
SERUM YOU HAVE BROUGHT THEM 


YOUR RATING FOR THIS GAME IS 1078 


Just to show you how crowded the Galactic Area can be, I 
modified the program slightly from the one included 
here, to print out just part of the Area. I've placed an 
asterisk next to your ship (S) and the elusive Starbase 
2000 (T) to help you spot them. As you can see, this is 
not a game for those who lack the ability to 
concentrate: 


A A FA f A OE A 
B B A 5 B 
BB EK E BK H BBE BA 
A A AA AR B ARB E 
A A BA tR AA Lae A 
Bos? AFA A A F. 
A A E B A A A E BR A F 
RB nS A f F A B 
B ABA 2 B B AE 
A AA A 3 R EA P A 
re: BA nr OA A EB 
2 A = a = vA 
5 Fs 5 a EA B Bb 
Al +e A A B P 
5 A ak AA P B AE A BA 
h 2 A AA A PPE 
a RA ; A A E B B 


OK, cap'n, it is time to accept the challenge, and set 
out on your way to save the inhabitants of Starbase 2000 
from the dreaded Quintett Plague: 
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19 


26 
36 


4g 

So 

6G 

7g 

Bg 

og 

196 
119 
128 
139g 
149 
159g 
1469 
172 
189 
199 
299 
21¢ 
228 
230 
24 
256 
26D 
27D 
28a 
296 
3a 
31G 
329 
33G 
34g 
35g 
36 
37GB 
38g 
39 
Aga 
41G 
42 
439 
44g 


REM STARBASE 2992 
GOSUB2649:REM INITIALISE 
GOSUB199:REM NAME OF QUADRANT 
IFEV<SANDRND (1)<. 1STHENGOSUB1999 
GOSUB54@:REM CONDITION OF SHIP 
GOSUB799:REM PROXIMITY REPORTS 
GOSUB1@5@:REM ACCEPT MOVE 
IFBS="N" THEN129 
GOSUB199¢ 

GOSUB5S4@ 

GOSUB78@ 

GOSUB139@:REM ACCEPT FIRE COMMAND 
GOSUBS4@ 

GOSUB1589:REM ALIENS RETURN FIRE 
TS=TSt1 

BS="" 

GOTO39 

REM XXX XX KKKHHHKHHIEN 

REM NAME OF QUADRANT 

PRINT" {CLR3": PRINT: PRINT 
PRINT":::: YOU ARE IN "3 
P=INT(S1/8+.5) 

Q=INT(S2/8+.5) 

IFP<1THENP=1 

IFQ@< 1 THENG=1 

IFP>STHENP=8 

IF@>STHENG=8 

IFP >4THEN38& 

IF@=1THENPRINT "PEGASUS"; 
IF@=2THENPRINT "AQUARIUS" ; 
IFQ@=3THENPRINT"ERIDANUS" 5 
IFQ=4THENPRINT"HYADES"$ 
IF@=STHENPRINT"CANIS MAJOR"3 
IFQ=6THENPRINT"URSA MAJOR" 
IF@=7THENPRINT "GPHIUCHUS" ; 
IF@Q=8THENPRINT"CEPHEUS" 
GOTO44@ 

IF@=1 THENPRINT"DORADO"; 
IF@=2THENPRINT" TRIANGULUM" ; 
IFQ=3THENPRINT"AURIGA"} 
IFQ=4THENPRINT "MAGELLANIC "3 
IFQ=STHENPRINT"SCORPIO"; 
IF@=6THENPRINT"CORVUS" } 

IF Q=7THENPRINT"ARCHERNAR" § 
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45@ IFQ=STHENFRINT"CYGHUS"; 

468 PRINT" SECTOR" 

478 PRINT" ------------------------------ 
489 PRINT"SHIP’S LOG STARDATE"TS"ALIENS: 
"AK 

ASG. PRIN" ==] 94533-2292 oe ee ee 
599 PRINT"+++ YOUR GALACTIC CO-ORDINATES 
2"S1i3;S2 

S1@ PRINT"------------------------------ 
526 RETURN 

SSG REM XHXKKKHKHKHKHKHKHK 

549 REM SHIP CONDITION 

559 PRINTTAB(12)3;"*XENERGY BANKS HOLD"EN 
S69 IFEN>1THEN619 

578 PRINT: PRINT: PRINT"YOU HAVE EXHAUSTED 
YOUR ENERGY BANKS" 

S8@ PRINT:PRINT"YOUR VOYAGE IS OVER" 

5°99 PRINT:PRINT”"YOU SURVIVED FOR"TS-199¢ 
"STARDATES" 

698 PRINT:PRINT"YOU DESTROYED"AK"ALIEN $3 
HIPS": GOTO185¢ 

618 IFEN>S@THEN672 

626 FORH=1TO3 

630 PRINTTAB(H¥3)3"> WARNING !' <" 

646 NEXT H 

6509 PRINT"ENERGY RESERVES *LOW*" 

669 PRINT:PRINT"YOU MUST FIND A STARBASE 
SOON" 

678 FORT=1TO1999:NEXT T 

689 RETURN 

SFG REM KXKHHHH 

769 REM SCANNER 

718 P=208: A1=29G: AB=20@: PR=@ 

726 PRINT: PRINT"DG YOU WANT TO USE SCANN 
ER (Y OR N)” 

238 INPUTCS 

748 IFCS<>"N"ANDCS#< >" Y" THEN7Z3E 

756 IFC$="N" THENRETURN 

768 EN=EN-. 25 

778 PRINT"> STAND BY FOR SCANNING <":PRI 
NT 
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738 
796 
SIO 
S19 
S2OG 
330d 
349 
S368 
36g 
378 
33G 
BFC 
POS 
718 
P26 
93d 
-STA 
P49 
: GH= 
ares 
P69 
97D 
93d 
EN: 
i] 
RBAS 
19969 


BASE 
WITH 
1619 


~ ON 
-B2) 


196228 
1936 
1946 
isa 
1Gé6G 
DINA 
1972 
PAY 
1986 
1GPS 


1169 
1119 


X1=S1-8:X2=S1+8: Y1=S2-8: Y2=52+8 
IFX1<1THENX1=1 
IFX1>64THENX1=64 
IFY1i<1THENY1=1 
IFY1>64THENY1=64 
IFX2¢ 1 THENX2=1 
IFX2>64THENX2=64 
IFY2< 1 THENY2=1 
IFY2>64THENY 2=64 
FORX=xX1TOX2 
PRINT"-> "3 
FORY=Y1TOY2 
P=SQR((%-S1)¥(X-S1)+(Y-S2) ¥(Y-S2)) 
P=INT (P¥19@@G) /16@@ 
IFA(X%, Y) =SHORA(%, Y) =STHENS69 
IFA(X, Y) =TATHENPR=P:PRINT:PRINT".... 
RBASE 2999 DETECTED'....." 
IFA(X, ¥) =ALANDP<ALTHENAL=P:PRINT"A"$ 
x:GI=¥ 
IFA(X, Y) =SBANDP< ABTHENAB=P: PRINT"S"3 
NEXT Y 
NEXT x 
IFA1< >299THENPRINT:PRINT"CLOSEST ALI 
SCAN READING OF"Al1 
IFAB< >29GTHENPRINT:PRINT"CLOSEST STA 
E: SCAN READING OF"AB 
IFPR< >STHENPRINT:PRINT"SCAN ON STAR 
29G@ RETURNS: "PR:PRINTTAB(8) "IT IS 
IN RANGE" 
IFPR=9THENPRINT:PRINT"LONG RANGE FI 
STARBASE 26990 READS"199*(S1-B1)+(S2 


FORT=1TO1IOOSI NEXT T 

RETURN 

REM HHKHHKKKKHKE 

REM ACCEPT MOVE 

PRINT:SPRINT"+++ YOUR GALACTIC CO-OR 
TES 27S i350 

PRINT: PRINT"DO YOU WANT TO MOVE SHI 
OR WN)" 

INPUTBS 

IFBS< 3 "NN" ANDBS< F"Y" THENISSS 

IF BS="N" THENRETURN 

EN=EN-2.725 
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1129 
Es 

1139 

1149 


PRINTTAB(6)3;"WHICH DIRECTION (N, 5S; 


COR W)" 


INPUTAS 
IFAS< >"N"ANDASS > "S"ANDASS > "E" ANDAS< 


>"W" THENL 139 


1159 


1169 
117¢ 


1189 
1199 


1266 
12196 


1226 
1230 


1246 
D ON 


1245 


IFAS="N"ANDS1=1 THENRETURN 
A(S1,S2)=SH 

IFAS="W" ANDS2=1 THENRETURN 
IFAS="E"ANDS2=64 THENRETURN 
A(S1,S2)=6 

IFAS="N"THENS1=S1-1 
IFAS="S"THENS1=S1+1 

IFAS="W" THENS2=S2-1 
IFAS="E"THENS2=S2+1 
IFA(S1,S2)=ALTHENPRINT" YOU’ VE LANDE 
AN ALIEN SHIP!!":EN=@ 

IFA(S1,S2) =ALTHENFORT=1TO199@: NEXT 


T:RETURN 


12359 


D ON 
1269 


IFA(S1,S2)=SBTHENPRINT"YOU’ VE LANDE 
A STARBASE" : EN=EN+tS5 
IFS1=B1ANDS2=B2THEN179OS: REM STARBAS 


E HAS BEEN FOUND 


1272 
1239 
1299 
1L3G8 
1310 
TONS 
13296 
1339 


1340 
1352 


1369 
1379 
1389 
1399 
(N, 
149g 
1419 


FORT=1TO1@6986:NEXT T 

RETURN 

REM KKKKKKKKKKHKE 

REM FIRE COMMAND 

PRINTS PRINT"DO YOU WANT TO FIRE PHO 


(Y OR N)" 

INPUTAS 

IFAS< > "N"ANDAS<S 2" Y" THENL S29 
IFAS="N" THENRETURN 


PRINTTAB(S)5; "AT WAHT FORCE (2 TO 8) 


INPUTK 

IFK< 2ORK 2?STHENIL38a 
EN=EN-K¥2.5 
PRINT:PRINT"!::22 
S, E, OR W)” 
INPUTAS 

IFAS< > "N"ANDAS<S > "S"ANDAS< > "E" ANDAS< 


IN WHICH DIRECTION 


>"W" THEN1499 


142969 
19439 
1446 


M=S1iN=S2 
FORJ=1TOK 
PRINT"SECTOR BEAM" J; 
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194359 
194966 
147¢ 
1489 
1499 
13509 


IFAS="N" THENM=M-1 

IFAS="S" THENM=M+1 

IFAS="W" THENN=N-1 

IFAS="E" THENN=N+t1 

IFM< LORM?>690RNK<K LORN> 6494 THENILSS9 

IFA (M,N) =ALTHENPRINT: PRINT"ALIEN SH 


IP DESTROYED AT"M35N:AK=AK+1 


13595 


IFA(M, N) =ALTHENA(M,N) =@: GH=9:GJ=9°G 


OTO1546 


1519 


NDLY 
2] 


1529 


OYED 
1539 


1549 
13559 
1569 
135796 
1539 
1596 
16969 


IFA(M,N)=SBTHENPRINT"YOU HIT A FRIE 
STARBASE'!":A(M,N) =@: EN=EN/2:GOTO1LS4 


IFM=BLANDN=B2THENPRINT"YOU’VE DESTR 


STARBASE 299¢6'"EN=96:GOTO18190 
PRINT"...».NOTHING" 


NEXT J 

FORT=1TO19696°NEXT T 

RETURN 

REM KKEHKKKKKHKHKKEKKKKEKEE 

REM ALIENS RETURN FIRE 
IFGH=90ORGJI=9ORRND(1)>.5THENRETURN 
PRINT"ALIENS AT"GH;GJI"ARE FIRING AT 


US SIR..." 


1616 
1626 
1639 
De 
1649 


FORT=1TO1IG6GS:NEXT T 
R=INT(RND (1) ¥4) 
IFR=@S@THENPRINTTAB(?7) 5 "XXX THEY MISSE 


IFR=1THENPRINT"ALIEN FIRE CLIPPED T 


HE STARBOARD SIDE" 


1645 


IFR=1THENPRINT: PRINTTAB(7) 5 "MINOR D 


AMAGE” :EN=EN-4. 75 


16359 


IFR=2THENPRINT"ALIEN FIRE HIT THE C 


REW SECTION" -PRINT 


16355 


IFR=2THENPRINTTAB(?) "MEDIUM DAMAGE" 


> EN=EN-18.25 


1669 
RIVE 
1665 


ras be 
167g 


1689 
1696 


1709 
1719 


IFR=STHENPRINT”"ALIEN FIRE HIT THE D 
SECTION" - PRINT 
PRINTTAB(7) "MAJOR DAMAGE": EN=EN-Sd. 


FORT=1TO19@9:NEXT T 
RETURN 

REM HKEEKKHHKHKKKEK 
REM END OF QUEST 
PRINT: PRINT 
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1796 


PRINTTAB(8)3 "YOU HAVE SUCCEEDED!" 
PRINT" ----------------------------- 


PRINT"YQU HAVE FOUND THE STARBASE 2 


PE=1999+INT (RND(1) 1999) 
PRINT" ----------------------------- 


PRINTPE"STARBASE RESIDENTS ARE STIL 


PRINT"ALIVE, AND WILL NOW LIVE BECA 


USE OF THE" 


13866 


PRINTTAB(8);"SERUM YOU HAVE BROUGHT 


THEM" 


18190 


PRINT" ----------------------------- 


PRINT" YOUR RATING FOR THIS GAME IS" 


PRINTINT (PE+TS+ENXAK- 1999) 

END 

PRINT" ----------------------------- 
PRINT"UNFORTUNATELY, 
THE” 
PRINT"STARBASE, 
GOTO181¢ 

REM *XXXXH* 
REM ENVENTS 
EV=EV+1 

PRINT "Ss=SSsssSssss5=sS55SS55555=== 


YOU DID NOT LO 


WHICH WAS AT"B1i;B2 


ONEVGOSUB1I1989, 2989, 229009, 2350,2519 


FORT=1TO1SG9S°NEXT T 
RETURN 


REM #XXKKKHKKKKKE 

PRINT" YOUR SHIP HAS FLOWN INTO TRE 
OF A” 

PRINT"GAMMA-RAY EMISSION FROM GALAC 
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LOGS 


2616 
29826 


PRINT"ANTICENTER, EPIFOCUS IS VELA. 


FORT=1TO169@6:2NEXT T 
PRINT"YOUR SHIP IS DEVERTED BY THE 


EMISSIONS" 


2939 
29049 
2IA58 
2568 
2976 
25865 


OMIC" 
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D109. 


21608 


S$1=$1+1:S2=S2-1 
IFS1>64THENS1=64 
IFS2<¢1THENS2=1 
RETURN 

REM HHH HKHHKHK HHH 
PRINT"NAVIGATION REPORTS UNUSUAL AT 
PRINT"ACTIVITY AT MAGNITUDES 4.8 AN 
13" 


PRINT"FROM KAPTEYN’S, APPARENTLY DI 


RECTED" 


2119 
212@ 
2138 
PUT" 
2149 
2158 
2168 
2178 
218¢ 


2196 
22068 


PRINT" TOWARDS UV CETI A AND B..." 
FORT=1TO1666:NEXT T 
PRINT"THIS SUGGESTS QUR SCANNER OUT 


PRINT"MAY BE INACCURATE..." 
B1i=B1+2:B2=B2-2 

IFB1 >65THENB1=649 
IFB2<1THENB2=1 

RETURN 

REM HHEKHKKKKKKEKE 


PRINT"SIGNALS RECEIVED FROM DIRECTI 


ON OF THE" 


<219 PRINT"HORSEHEAD NEBULA AT 337 PARSE 
CS SHOW" 

2226 PRINT"EXCESSIVE SODIUM MEASUREMENT 
IN" 

2236 PRINT"THE INTERSTELLAR DUST CLOUD... 
22990 FORT=1TO1SOH: NEXT T 

22350 PRINT"WE MUST DIVERT 12% QF OUR ENE 
RGY TO" 

22609 PRINT"STRENGTHEN OUR SHIELDS..." 
2276 FORT=1TOLSGGS: NEXT T 

22898 PRINT"ENERGY BANKS NOW HOLD"EN 

22°96 EN=./783%*EN 

23990 FORT=1TOS@S@: NEXT T 

2319 PRINT"AFTER SHIELD STRENGTHENING, E 


NERGY" 
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2320 


2336 
23499 


2558 


PRINT" BANKS REPORT A READING OF"EN 


RETURN 
REM KHEKKKHKHKHKKKEKE 
PRINT"FORWARD CONTROL REPORTS PROTO 


-STAR" 


2366 


PRINT"FORMATION IN THE GASEOUS NEBU 


LA M16" 


2376 


PRINT" IN SERPENS. THE PROTON-PROTON 


REACTION" 


2386 


PRINT"IS GENERATING INTERNAL TEMPER 


ATURES OF" 


2396 
24608 


PRINT" THE ORDER OF 17 X 18°6:-K..." 
PRINT"WE MUST MOVE AWAY FROM THAT L 


OCATION..." 


2419 
2428 
24939 
2449 
24356 
24969 
24976 
249438 
24996 
255898 
2516 
25268 
31d 

23368 


"UNITS, 


2546 


FORT=1TO1IG99G:NEXT T 
PRINTTAB(8)5;" "WARP DRIVE ON 
FORT=1TO1LOGSGINEXT T 
SL=S1I+tINT (RND( 1) ¥3) 
S2=S2+INT (RND(1) #3) 
IFS1>64THENS1=64 
IFS2>6494THENS2=64 
FORT=1TO19G66: NEXT T 

RETURN 

REM KEKKEKHKKKHKKEKK 
PRINT"WARNING...WARNING...” 
FORT=1TOS@O: NEXT TT: IFRND(1)>.7THEN2 


17H 


PRINT"BLACK HOLE WITHIN"”RND(1)*¥19969 
IN" 


PRINT"DIRECTION”"RND(1) #19609" HEADIN 


G"RND (1) ¥34 


25958 
2568 


FORT=1TOS@SINEXT T 
PRINT: PRINT"GRAVITATIONAL LENS EFFE 


CT IS PUTTING" 


235709 PRINT"EXTREME STRAIN ON GALACTIC IM 
AGE AS" 
2588 PRINT"SEEN BY INITIATED PROCESS"INT 


(RND(1)%#1909) /199 


2396 
26GB 
2616 
26268 
2630 


M=S2°52=51°2°51=M 

PRINT"WE ARE TUMBLING... "5 
IFRND(1)>.494THEN2696 
RETURN 

REM HHHKKKKHKE 
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260468 
26356 
26668 
2678 
2438 
2AOPDB 
2786 
2716 
2726 
27368 


2745 
27568 
2766 
2770 
2788 


2798 
2398 


2310 
2829 
2836 
28349 
2859 
2869 
2376 
238¢ 
2398 
2908 
29°16 
2P2DG 
2IPS3DB 
2946 
29568 
2966 


297D 
29°86 


REM INITIAL ISE 
PRINT" {CLR}" 


PRINT: PRINT"PLEASE STAND BY."5 


REM 


DIMA (44, 64) 
AL=ASC ("A"): REM 
AK=@G:REM ALIENS 
SH=ASC("S")!:REM 
SB=ASC ("B") : REM 
TA=ASC("T") : REM 


EN=3909 


ALIEN 
KILLED 

YOUR SHIP 

STAR BASE 
TARGET OF GAME, 


STARBASE 2696 
TS=196990:;REM STARDATE 


REM #*#* CREATE UNIVERSE ** 


FORM=1TO3966 
PRINT". 
FORN=1TO2 


C=INT (RND(1)¥64) +1 
D=INT (RND(1)*64) +1 
IFN=1THENA(C,D)=AL 
IFN=2THENA(C,D)=SB 


NEXT N 
NEXT ™ 


REM ** STARBASE 2980 X** 
B1I=INT (RND (1) #64) +1 
B2=INT (RND(1)¥64) +1 


A(B1,B2)=TA 


REM *%* START POSITION, SHIP ** 
S1l=INT (RND (1)*64) +1 
S2=INT (RND(1)¥64) +1 


IFS1=BiORS2=B2THEN2919 


A(S1,S2)=SH 


PE=9 


GH=9:GJ=6 


EV=9 


RETURN 
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SECRET AGENT 


Four secret agents, from four major cities, are on their 
way to meet the head of their government in a_ “fifth 
major city. They all carry the same secret papers which 
contain information on how to defeat all the other 
governments. Therefore, only the government who gets the 
information first can use it effectively. 


The computer takes the role of one secret agent, and 
three human beings take the other roles. The game is 


very easy to play. When it starts, you'LL first be told 
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the cities which are involved (they change from run to 
run of the game): 


Here are the cities: 
SHANGHAI 

RANGOON 

WASHINGTON 

MOSCOW 

BANGKOK 


You will be esked to enter the names of the three human 
players: 


ENTER AGENT NAME NUMBER 1 ? WENDY 

ENTER AGENT NAME NUMBER 2 ? PETER 

ENTER AGENT NAME NUMBER 3 ? DR HOOK 
I WILL BE AGENT NUMBER 4 


The computer will then allot the human players to their 
starting cities and will teLl you which city you are all 
heading for 


HERE ARE THE CITIES YOU ARE COMING FROM: 


WENDY = SHANGHAI 
PETER = RANGOON 

DR HOOK = WASHINGTON 
COMPUTER = MOSCOW 


THE PAPERS MUST BE DELIVERED 
TO BANGKOK 


A highly accurate map is then shown, with the initials 
of the players (with C for computer) shown in _ their 
Starting locations. The ‘target city’ (Bangkok in this 
case) is shown in the center of the map: 
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SHANGHAI 


WASHINGTON 


Dice are rolled for each pleyer. 


highest total 


the target city: 


RANGOON 


C 


MOSCOW 


WENDY FROM SHANGHAI - 7 
PETER FROM RANGOON =- 3 


DR HOOK 
COMPUTER FROM MOSCOW - 


FROM WASHINGTON - 
6 


The player 
for that round moves one step closer 


8 


with 


AGENT DR HOOK MOVES TOWARDS BANGKOK 
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the 
to 


SHANGHAI RANGOON 


We e= = = = = = = — = = P 
ce aT)? ae, Beg St eal aes hn tke Am), eine 
Te ee Ss eRe ES ae oh te 


WASHINGTON MOSCOW 


SHANGHAI RANGOON 


Ge 20S ce See es eee oP 
Pay & ie ee Ae 
RNA OE eee RA 5, 


WASHINGTON MOSCOW 


WENDY FROM SHANGHAI - 2 

PETER FROM RANGOON = 8 

DR HOOK FROM WASHINGTON = 7 
COMPUTER FROM MOSCOW - 9 

AGENT COMPUTER MOVES TOWARDS BANGKOK 
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If two 
rolled 
this Mm 
rolled 


players roll the same total, 


it first makes the move. 


the 


player who 


Despite the fact that 


ight seem to count against the players who are 


third and fourth (one human and one 


the dice seem to even things out: 


The rac 


DAY 12 
SHANGHAI 
ee Wires oes OS ee 
WASHINGTON 


RANGOON 


MOSCOW 


WENDY FROM SHANGHAI = 4 
PETER FROM RANGOON = 6 
DR HOOK FROM WASHINGTON = 
COMPUTER FROM MOSCOW = 7 
AGENT COMPUTER MOVES TOWARDS BANGKOK 


e belongs only to the 
DAY 16 

SHANGHAI 

i ee ee ae 


swift: 


RANGOON 


5 


computer), 


WENDY FROM SHANGHAI = 9 

PETER FROM RANGOON = 7 

DR HOOK FROM WASHINGTON = 12 
COMPUTER FROM MOSCOW = 5 

AGENT DR HOOK MOVES TOWARDS BANGKOK 


DAY 17 
SHANGHAT RANGOON 
Se | ee ae ee ae ee ers 
WASHINGTON MOSCOW 


AGENT DR HOOK GOT THE PAPERS 
TO BANGKOK FIRST 


IT TOOK 17 DAYS 


When you're feeling Like a Little jaunt to Bangkok, 
Khartoum, Shanghai or Quito, roll up a f@w dice, and run 
the following program: 


1g 
26 
3a 
4g 
pat %) 
PAS 
7 


es] 
PO 


REM SECRET AGENT 

REM DICE GAME FOR 3 PLAYERS 
REM PLUS THE COMPUTER! 

REM 

GOSUBS26: REM INITIALISE 
GOSUB3S76: REM MAP 

IFOG< >STHENIGO 

GOSUB1696:; REM DICE ROLL 
GOTO6¢ 
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199 PRINT" {CWHTSAGENT "3BS(0G);" GOT THE 
PAPERS" 


116 PRINT"TO "AS$(5)" FIRST" 

126 PRINT 

136 PRINTTAB(12)3;"{YEL3}IT TOOK"DA"DAYS” 
1496 END 


15D REMEXXKKHKKKKKKKH HHH 

166 REM ROLL THE DICE 

178 PRINT 

188 M=1 

199 FORJ=1TO4 

208 C(J)=INT(RND(1)¥6+RND(1)¥6) +1 

21G PRINT"{WHT}"BS(J)3"{LT GRN} FROM "3A 
S(JVE" - "3eocg) 

22G IFC(J)>C(M) THENM=J 

238 NEXTI 

248 PRINT:PRINT"{PUR}AGENT (WHT3"3BS(M) 3 
"PUR} MOVES TOWARDS "3;A%(5) 

258 IFM=1THENZ(A1,A2)=45:A1=A1L+1:A2=A2t1 
=Z(A1,AZ2) =ASC (BS(1)) 

268 IFM=2THENZ(B1,B2)=45:B1=Bl+1:B2=B2-1 
°27(B1,B2) =ASC (BS(2)) 

278 IFM=3THENZ(C1,C2)=45!:C1=C1-1:C2=C2+1 
-2(C1,C2)=ASC (BS(3)) 

288 IFM=4THENZ(D1,D2)=45:D1=D1-1:D2=D2-1 
-7(D1,D2) =ASC (BS (4) ) 

298 IFA1=7ANDA2=7THENOG=1 

39@ IFB1=7ANDB2=7THENOG=2 

319 IFC1=7ANDC2=7THENOG=3 

328 IFD1=7ANDD2=7THENOG=4 

338 GOSUB1IG19 

349 RETURN 

358 RETURN 

SSG REM KXHXXHHHHX 

378 REM THE MAP 

388 PRINT" {CLR}":PRINT 

398 DA=DAt1 

49@ PRINTTAB(9) "{CYN}DAY"DA 

419 PRINT"{LT BLU} "AS(1) TAB (26-LEN (AS (2) 
..5AB(2) 

426 FORJ=1TO13 

43@ FORK=1TO13 

449 PRINT" COR} "CHRS(Z(J,K))5" "3 

459 NEXTK 
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466 PRINT 


476 NEXTJ 
4986 PRINT"{LT BLU} "AS(3) TAB (26-LEN (AS (4) 


»)5AB(4) 
499 GOSUBIE19 


590 RETURN 

SLAF REM XHKXKHKHHK KKH HK HKKHK 

52@ REM INITIALISATION 

53@ PRINT"{CLR}" 

54@ POKE5S3281,9:POKE53289,5 

559 DIMAS(5) ,BS(4),C(4),2(13,13) 

569 PRINT!:PRINT"HERE ARE THE CITIES:" 
578 FORJ=1T05 

58@ RESTORE 

599 FORT=1TORND(1)*16+1 


690 READBS 
619 NEXT T 


628 AS(J)=BS 
638 T=1 

648 IFT>=JTHEN67@2 

658 IFAS%(T) =A%(J) THENSSS 

66G T=T+1:GOTO64¢E 

678 PRINTAS(J) 

68@ NEXT J 

69@ PRINT: PRINT 

76@@ FORIJ=1TOS 

71@ PRINT"ENTER AGENT NUMBER"J 

726 INPUTBS(3) 

738 NEXT J 

749 PRINTTAB(5)3"I WILL BE AGENT NUMBER" 
4 

758 BS(4)="COMPUTER" 

76@ GOSUB1G1¢ 

776 PRINT:PRINT"HERE ARE THE CITIES YOU 
ARE COMING FROM: ” 

78@ FORIJ=1T04 


796 PRINTBS(J)5" - "SABC I) 

SOG NEXTI 

S106 PRINT: PRINT" THE PAPERS MUST BE DELIV 
ERED" 


S26 PRINTTAB(9)3;"TO "SZ ASB(S) 


839 FORJ=1TO13 
849 FORK=1TO13 
S59 2(3,K)=45 
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S69 NEXT K 

870 NEXTJ 

S890 A1=1:5:A2=1°REM AGENT ONE 
S99 Bi=1:B2=13:REM AGENT TWO 
7006 Ci=13:C2=1:2:REM AGENT THREE 
919 Di=13:D2=13:REM AGENT FOUR 
726 Z2(A1,A2)=ASC(BS(1)) 

936 2Z2(B1,B2)=ASC(BS(2)) 

749 2Z2(C1,C2)=ASC (BS(3) ) 


956 2(D1,D2)=ASC (BS(4) ) 
76S 2(7,7)=ASC(AB(5)) 


G78 UG=G 

98H DA=G 

9990 RETURN 

LIBAG RM KKK KKH KE HEHE 

19146 REM DELAY LOOP 

1926 GETGS: IFGS=""THEN1I9S26 

19390 RETURN 

196499 DATA"MOSCOW", "PEKING", "WASHINGTON", 


"PARIS", "GENEVA", "BONN", "KHARTOUM" 
196356 DATA"SHANGHAI", "TOKYO", "ALGIERS", "0 


TTAWA", "CALCUTTA", "RANGOON", "BANGKOK" 
1969 DATA"QUITO", "CARACAS", "NAIROBI" 


READY. 
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SCAT BIKES 


This iS a most unusual board game, in which the aim is 
to ‘'drive' off the side of the board opposite your 
starting side. You are the O's down the Left hand side 
and you're driving straight across the board. The 


computer controls the Little X scat bikes, and they are 


heading due north. Here's how the board Looks at’ the 
start of the game: 
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My score: 0 
Your score: 0 


NU EWN — 
oe eke) 


2 34 56 


Stand by for my move... 


At any time, you can move one square in any direction. 
There are no captures, with the 'scores' at the top of 
the screen indicating how many of the O's or X's have 
made it from their respective sides of the board. 


The computer moves first, and then you enter your move 
as the number from which you're moving and the number 
you're moving to. 


My score: 0 
Your score: 0 


NU SW AW == 
o0o000 
Sd eo e 


ENTER YOUR MOVE (side, bottom)? 21 


FROM 21 TO? 22 
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ILlegal moves are, as you can see, firmly rejected: 


My score: 0 
Your score: 0 


NU SW DY = 
ome kek, 
e 
@ 


ENTER YOUR MOVE (side, bottom)? 22 


FROM 22 TO? 24 
>>You can'ft move that far’! 


FROM 22 TO? 23 


Here's a few more 'snapshots' of the game in action, 
Leading up to a narrow victory by the computer: 


My score: 0 
Your score: QO 


Nn SW Mw — 
O° 
Lo) 
>) 
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ENTER YOUR MOVE (side, bottom)? 43 


FROM 43 TO? 34 


My score; 2 
Your score: 2 


NO FEW Nh — 
O 
e 


ENTER YOUR MOVE (side, bottom)? 44 


FROM 44 TO? 45 


Your score: 3 


NU HW Nh — 
a 
r 
° 


1234 5 6 


I'm the winner! 


If you decide you can't face the pace any longer, enter 
a zero when it 1S your turn to move. 
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REM SCAT BIKES 
GOSUB?V7G:REM INITIALISE 
GOSUB2Z16:REM PRINT BOARD 
IFCS=40RHS=4THEN1I49 


GOSUB389: REM COMPUTER MOVE 
GOSUB 7196: REM PRINT BOARD 


IFCS=40RHS=4THEN14@ 
GOSUBS596: REM HUMAN MOVE 
FORJ=2T05:A(J)=46: NEXT J 
FORIJ=46TOLSGSTEP-19 
ACJ) =946:NEXTI 
SOTOSKI 
LEM HKHKIHK KKK HHH HH 
FEM END OF GAME 
PRINT 


IFCS?SHSTHENPRINT"{YELSI’M THE WINNER 


IFCS<HSTHENPRINT"{YEL?YQU’RE THE WIN 


,H 
PRINT: PRINT: PRINT 
END 

REM KHKKKKKHKHKEKKKKEE 


REM PRINT BOARD 
PRINT" CCLR}"FPRINT? PRINT 


PRINTTAB(3) 
PRINT 


PRINTTAB(7) 3; "{PURIMY SCORE: "CS 
3 


PRINTTAB(6)35"1"2PRINTTAB(6) 35 "2 


FORJ=11T0O355 
PRINTCHRS(A(J))3" "5 


“YOUR SCORE: "HS 


IFJ=15STHENJ=296: PRINT: PRINTTAB(6G) 


IFJ=25THENIJ=3902PRINT®S PRINTTAB(6) 


IFJ=3SS5STHENJ=49: PRINT: PRINTTAB(6) 


IFJ=S4S5THENIJ=S6:>PRINT?: PRINTTAB(4) 


NEXT J 
PRINT: PRINT 


PRINTTAB(8)3"1 23849 3 6 


RETURN 
REM HKEKEKHKHHHHHKKKKHKE 
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389 REM COMPUTER MOVE 

399 PRINT:IPRINT"{CYN}STAND BY FOR MY MOV 
Bee" 

395 FORTT=1T01999: NEXT 

49GB Y= 

419 Y=Y+1 

42@ Z=INT(RND(1)*44) +12 

438 IFY<S@GANDA(Z) < >SS8THENG19 

449 IFY>499THENGOSUB219: PRINT: PRINT"{YEL 
$I CONCEDE, CHAMP! ":END 

458 IFA(Z-19) =46THENW=Z-198: GOTOS5¢ 


4690 U=9 
478 J=INT(RND(1)¥2) +1 


4380 U=Url 

496 IFI=1THENM=-11 

3998 IFJ=2THENM=-9 

3218 W=2+mM 

329 IFAW) =46ANDWS S41 ANDWK SSLANDWKS >21 AND 
W< >LITHENSS9 

239 IFU<C4THEN4Y7S 

349 GOTO419 

IIH A(Z)=46:A(W) =88 

560 IFZ<14THENCS=CStl 

378 RETURN 

IBG REM HHEKKKKKHKKKKHKKKH 
5990 REM HUMAN MOVE 

696 PRINT: PRINT 

6190 REM ENTER @ TO CONCEDE 


626 INPUT" {GRNJENTER YOUR MOVE (SIDE, BOT 
TOM) "3x 


636 IFX=G8THENPRINT"{YEL} >>THANKS FOR TH 
E GAME, LOSER! ":END 

64949 X=X-16 

650 IFX<60RX>45STHENPRINT"{CYN} >>NOT AL 
EGAL ‘MOVE! ":GOTO6296 

669 IFA(K) < >79THENPRINT"{CYN? >>YOU DO N 


OT HAVE A PIECE THERE": GOTO626 
676 PRINT: PRINT"FROM"X+193 


6890 INPUT"TO";Y 

696 Y=Y-16 

766 IFY<60RY>4S9STHENPRINT" {(CYN}3>>NOT AL 
EGAL MOVE!" :GOTO0629 

218 IFACY) < >46THENPRINT"{CYN} >>YOQU CANN 
OT MOVE THERE!": GOTOQ4689 
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7206 IFABS(X-Y) >11O0RABS(X-Y) >1ANDABS(X-Y) 
C<OTHENPRINT"{CYN}27>YOQU CAN’ T MOVE THAT F 
AR": GOTO679 

73G ACK) =HFG2: AY) =79 

7499 IFY=160RY=260RY=360RY=46THENHS=HSt1 

7368 RETURN 

76GB REM KEKKKHKKKKKKHEHKEKKE 

776 REM INITIALISE 

738 POKES3281,90:POKES3289,8 

796 DIMA(S64) 

3866 FORJ=1TOS6 

SiG A(J)=46 

S29 NEXTIJ 

830 FORJ=1TO? 

3846 READK: READY 

S58 ACK) =Y 

S69 NEXT J 

8706 HS=G: REM HUMAN SCORE 


S886 CS=G: REM COMPUTER SCORE 
o99 RETURN 


988 DATA1I1,79, 21,79, 31,79,41,79 
919 DATAS2, 88,53, 898, 54, 88, 55,88,51,32 


READY. 
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THE VOYAGES OF 
MAGELLAN 


You no longer need to worry over the unfortunate fact 
that neither you, nor your trusty computer, were 
existence back in the early 1500's. Although you missed 
out on the first circumnavigation of the globe, you can 
re-enact the expedition as many times as you Like — with 


an enormous variety of possible outcomes — with the aid 
of this program. 


iD ise =e AU, | gu: ane imme 
Y 2 iy AQ 


| N aaa ‘if \ i 


< 


Ferdinand Magellan Left his native country of Portugal 
for Spain after four years of fruitless attempts to get 
financial backing for his planned voyage around the 


220 


in 


world. Charles V of Spain Lent a more sympathetic ear to 
the project, and in September 1519, Magellan set sail on 
the greatest journey man had ever undertaken. Five 
ships, in pretty poor condition, and only 280 men, did 
not suggest the voyage would prove _ successful. But 
although Magellan himself did not complete the first 
complete voyage around the globe (he was killed on a 
small island in the Philippines) the main ship -— the 
Victoria -— finally Limped back to Spain, three years 
after they had begun. 


Records show the expedition was outfitted with two and a 
half tons of gunpowder, twenty-one quadrants and seven 
astrolabes. On this voyage, when you're in charge of the 
Victoria, you'll have all this and more as you will see 
shortly. In this program, you have to keep your’ men 
fed, by carefully trading with natives you meet as you 
sail. As well, you may well be forced to deal with such 
diversions as shipwreck, mutiny and pirates. If you 
keep your head, you'LL eventually make it back to Spain, 
after visiting many of the ports where the Victoria 
actually called. 


The computer takes the role of the first’ mate, 
cheerfully bringing you up to date on the current 
events: 


wooawoeemeaeoeoe ew ee ow oeeameaweeoocmooqeceeormrt ee eet oe ae eae a ae Se eS oS 


CAPTAIN FERDINAND, REPORT FOR WEEK 1 


WE ARE SETTING SAIL FROM SPAIN 
WITH A CREW OF 112 HEARTY MEN 


WE ARE AT THE CANARY ISLANDS 
THE TREASURY HOLDS 208 DUBLOONS 


THE GALLEY STORES HOLD 111 SACKS 
OF FOOD, ENOUGH FOR 9 WEEKS 


ENTER 1 TO INSPECT THE HOLD 


2 TO TRADE WITH THE NATIVES 
3 TO SET SAIL FOR OUR NEXT PORT 
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It is good to know what you have on board to sell, to 


allow you to buy food for your perpetually-ravenous 
crew: 


IN THE HOLD YOU SEE: 

113 BOLTS OF CLOTH WORTH 1017 DBLNS 
16 ASTROLABES WORTH 368 DBLNS 

50 SACKS OF SALT WORTH 400 DBLNS 

37 IRON INGOTS WORTH 185 DBLNS 

11 QUADRANTS WORTH 385 DBLNS 


TOTAL VALUE OF GOODS IS 2355 DUBLOONS 
PRESS 1 TO TRADE WITH THE NATIVES 
OR 2 TO RETURN TO THE VOYAGE 


Life at sea is hard, even with all that food, and from 
time to time you'LL notice a crewman or two missing at 
roll-call: 


qo wm o@weenewe@mameeaec a Gs @ @ a &@ a a ae we FF &@ = a G GP aw SH HH GF G&G ** ar ew aw 


CAPTAIN FERDINAND, REPORT FOR WEEK 4 
® YOU HAVE 110 MEN ®- 


WE ARE AT THE CAPE VERDE ISLANDS 
THE TREASURY HOLDS 208 DUBLOONS 


THE GALLEY STORES HOLD 75 SACKS 
OF FOOD, ENOUGH FOR 6 WEEKS 


ENTER 1. TO INSPECT THE HOLD 


2 TO TRADE WITH THE NATIVES 
3 TO SET SAIL FOR OUR NEXT PORT 
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Trading with 'the natives’ can be interesting: 


CAPTAIN, WHICH GOODS WILL WE SELL? 

1 = BOLTS OF CLOTH 

2 = ASTROLABES 

3 = SACKS OF SALT 

4 = IRON INGOTS 

5 =- BARRELS OF GUNPOWDER 

6 = QUADRANTS 

7 © TO BUY FROM NATIVES 

8 = TO RETURN TO VOYAGE 

WE HAVE 50 SACKS OF SALT WORTH 8 

DBLS EACH 

THE LOCALS* BEST OFFER IS 5 EACH 
HOW MANY DO YOU WANT TO SELL? 25 


oOo wer co ar weerwmewoe ewe ee wea mt weweaeeoeewaerweemwoe aw ww warn fF eS OO So = ae 


WE HAVE 37 INGOTS WORTH 5 DBLS EACH 

THE BEST OFFER FOR IRON IS 4 EACH 
HOW MANY DO YOU WANT TO SELL? 37 

CAPTAIN, WHICH GOODS WILL WE SELL? 

1 = BOLTS OF CLOTH 

2 - ASTROLABES 

3 = SACKS OF SALT 

5 =- BARRELS OF GUNPOWDER 

6 - QUADRANTS 

7 - TO BUY FROM NATIVES 

8 = TO RETURN TO VOYAGE 


Ce es — ——  ——  —— —- .  — —  —  —— ~  — — — - —- .--  —— e  — - | 


Ce ee ee ee ee ee ee ee — ee 2 ) 


>> YOU HAVE 481 DBLNS << 


THE NATIVES ARE OFFERING: 
1 - FOOD AT 13 DBLNS PER SACK 
2 = SLAVES AT 34 DBLNS EACH 
3 = TO RETURN TO VOYAGE 
HOW MUCH FOOD DO YOU WANT? 100 
YOU DO NOT HAVE ENOUGH MONEY 
oO 25 
> TRANSACTION COMPLETE < 
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>> YOU HAVE 156 DBLNS << 


THE NATIVES ARE OFFERING: 
1 = FOOD AT 15 DBLNS PER SACK 
2 - SLAVES AT 31 DBLNS EACH 
3 - TO RETURN TO VOYAGE 


HOW MANY SLAVES DO YOU WANT? 5 
THEY'VE BEEN ADDED TO YOUR CREW 


And so your journey continues: 


CAPTAIN MAGELLAN, PROGRESS OF 
THE VICTORIA FOR WEEK 5 
# YOU HAVE 115 MEN # 


STORES HOLD FOOD FOR 7 WEEKS 


WE ARE SAILING... 


CAPTAIN MAGELLAN, PROGRESS OF 
THE VICTORIA FOR WEEK 6 
® YOU HAVE 113 MEN 8 


STORES HOLD FOOD FOR 6 WEEKS 


OUR VOYAGE CONTINUES... 


DUE TO A LACK OF FRESH FOOD 
SCURVY HAS HIT YOUR SHIP... 
29 MEN HAVE DIED 


Finally, despite all your efforts, the elements may tu-n 
against you, bringing the voyage to an abrupt halt: 
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YOUR SHIP IS FOUNDERIN: (‘h HEAVY 
SEAS...YOU ARE IN PERIL..... 0 


A MIGHTY WAVE SWAMPS YOUR SHIP 
AND IT GOES DOWN TO THE BOTTOM 


THE VOYAGE LASTED 11 WEEKS 


Alternatively, fate might be kind, leading to an ending 
such as this one: 


WELL DONE, CAPTAIN 


YOU'VE MADE IT BACK TO SPAIN 
YOU ENDED THE VOYAGE WITH 116 DBLNS 
143 BOLTS. OF CLOTH, “16. ASTROLAPES 
O SACKS OF SALT, O IRON INGOTS 
3 BARRELS OF GUNPOWDER, AND 
11 QUADRANTS 


YOUR SCORE IS 3874 


THE VOYAGE LASTED 11 WEEKS 


Much of our knowledge of the events of the voyage comes 
from an Italian crew-member named Pigafetta, who kept a 
diary during the journey, and Later converted it into 
book form. He tells how he wanted to go with Magellan 
"to experience and see with my syes a part of the very 
great and awful things of the Ocean". Now, without 
having togo begging to Charles V of Portugal,you can see 
some "great and awful things": 


16 REM VOYAGES OF FERDINAND MAGELLAN 
26 GOSUB2876: REM INITIALISE 

396 PRINT"{CLR}"2PRINT 

4G T=INT (RND (1) ¥3) 

38 WEEK=WEEK+1 

66 FOOD=INT (FOOD-FEED#MEN) 

78 ITFFOOD< 1 THEN289 
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SO IFRND(1)>.74THENMEN=MEN-INT (RND(1)¥3) 


95 PRINT" {GRN;>" 
168 IFT=98THENPRINT"CAPTAIN MAGELLAN, PRO 


GRESS OF":PRINT"THE VICTORIA FOR WEEK"WE 
116 IFT=1THENPRINT"CAPTAIN FERDINAND, SHI 
P’S LOG FOR WEEK"WEEK 

126 IFT=2THENPRINT"CAPTAIN FERDINAND, RE 


PORT FOR WEEK"WEEK 
139 IFPT=10RPT=9THENS4@ 


14946 MEN=INT (ABS (MEN) ) 

156 PRINTTAB(8)3"%* YOU HAVE"MEN"MEN %*" 
166 IFMEN<196THENPRINT"THAT IS NOT ENOUGH 
TO SAIL THE": PRINT"VICTORIA, SO WE MUST 
STAY" 

161 IFMEN<19THENPRINT"HERE IN "3 AS(PT):2G 

OTO0649 

179 PRINT" { YEL3---------- 3-2 - - - --e - e-- 


175 PRINT: PRINT 

186 T=INT(RND(1)¥3.5) 

199 IFAS=@ORQU=9THENPRINT"YOU DON’T HAVE 
ANY INSTRUMENTS": PRINT"TO NAVIGATE WITH 
| oe 

191 TFAS=G0ORQU=6THENPRINT"THIS IS THE EN 
Dice sane "; GOSUB3199: GOTOQ649 

268 IFT=S@THENPT=PT+1:PRINT"WE ARE AT "3A 

$S(PT) > IFPT=9THENG1S 

216 W=INT(RND(1)*2) 

226 IFINT(FOOD/ (FEEDXMEN) )<1THEN239 

236 IFT>OSTHENPRINT: PRINTTAB(RND(1)¥4)5"S 

TORES HOLD FOOD FOR"INT(FOOD/ (FEEDXMEN) ) 
"WEEKS" 

2406 IFT SSANDW=1THENPRINT: PRINTTAB(RND(1) 


%¥8)5 "WE ARE SAILING...":GOTO469 
250 IFT >SANDW=STHENPRINT: PRINTTAB(RND (1) 
¥8)5"QUR VOYAGE CONTINUES...":GOTO469 


266 IFMEN<16THENPRINT" YOUR CREW IS TOO S 
MALL TO SAIL THE":PRINT"VICTORIA, SO WE 
MUST” 

261 IFMEN<C1LSTHENPRINT"STAY HERE": PRINTTA 


B(S)5 "IN "SAS(PT) :GOTO6499 
2798 IFFOOD?1THENS49 
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286 PRINTTAB(S); "YOU HAVE RUN OUT OF FOO 
D!";GOSUB3199 
2°99 PRINTTAB(S)$3; "ALL OF YOUR MEN HAVE DI 


ED. 
390 PRINTTAB(3)3; "YOU ARE DYING TOO..." 


316 GOSUB319S9 
3206 PRINTS PRINTTAB(S)35"A PITY IT IS ALL 


OVER..." 


3398 PRINT: PRINTTAB(S)53 "THERE IS SO MUCH 
ON BOARD": PRINT: GOTO64S6 
3490 PRINTS PRINT" THE TREASURY HOLDS"CASH" 


DUBLOONS"”" 
350 PRINT: PRINT" THE GALLEY STORES HOLD"F 


oOOoOD"SACKS" 

5668 PRINT"OF FOOD, ENOUGH FOR"INT(FOOD/ ( 
FEEDXMEN) ) "WEEKS" 

379 PRINT: PRINT"ENTER 1 TO INSPECT THE H 
OLD" 

39898 PRINT" 2 TO TRADE WITH THE NATI 
VES" 

3990 PRINT" 5 TO SET SAITL FOR OUR NE 
XT PORT" 

499 GETBS: IFBS=""THENSSS 


419 REM 
426 IFBS< "1" ORBS>"S" THENSSS 


439 IFBS="1"THENGOSUB749 

9499 IFBS="2" THENGOSUB949: GOTOS1I9 

459 REM**X INCIDENTS ** 

469 RN=INT(RND(1)¥*¥21) 

476 IFRN=1THENSC=SC+t+1: IFSC=3THENRN=2 
471 IFRN=1ANDSC< > 3THENGOSUB2132 

489 IFRN=2THENSH=SH+1: IFSH=2THENRN=3 
481 IFRN=2ANDSH< > 2THENGOSUB22392 

499 IFRN=3THENMU=MU+1: IFMU=2THENRN=4 
491 IFRN=3ANDMUX > 2THENGOSUB2429 

569 IFRN=4THENPI=PI1+1: IFPI=3THENG6S 
591 IFRN=4ANDPI< >3THENGOSUB269¢ 

516 GOSUB319¢ 

528 GOTO 39g 

SSA REMHEKKHHHIWITH HHH HHH 

549 REM PORT OF SPAIN 


5590 IFPT>STHEN619: REM END 
Y68 PRINT: PRINT"WE ARE SETTING SAIL FROM 


SPAIN" 
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9798 PRINT"WITH A CREW OF "MEN"HEARTY MEN” 
2896 GOSUB3199 

S96 PRINT"{CLR}":PRINT: PRINT 

696 T=6:GOTO296 

619 REM** END OF VOYAGE ** 

626 PRINT"WELL DONE, CAPTAIN" 

639 PRINT: PRINT"YQU’VE MADE IT BACK TO §S 


PAIN" 

649 PRINT"YOU ENDED THE VOYAGE WITH"CASH 
"DBLNS" 

659 PRINTBOLT"BOLTS OF CLOTH, "ASTRO"ASTR 
OLABES" 


669 PRINTSA"SACKS OF SALT, "IRN"IRON INGO 
Lo 

6708 PRINTGUNPOWDER"BARRELS OF GUNPOWDER, 
AND" 

686 PRINTTAB(9) ; QUADRANTS" QUADRANTS" 

699 PRINT: PRINTTAB(8);"YOUR SCORE [5"5 
691 ZK=INT ( (BOF 2¥AStSAt+2¥IR+3¥GUtZ¥KQU) ¥ ( 

WE¥ME+CA) /62) 

692 PRINTZX 

7899 PRINT: PRINTTAB(S) 5 "THE VOYAGE LASTED 


"WE "WEEKS" 
719 GETBS: IFBS=""THEN7Z1¢ 


728 END 
FIED REMKX KKK KKK KKK HHI 

749 REM INSPECT HOLD 

741 PRINT" {PUR}------------------------- 


759 LOOT=a¢ 

755 PRINT"<CCYN}" 

768 PRINT" IN THE HOLD YOU SEE:”" 

77@ IFBO>STHENPRINTBO"BOLTS OF CLOTH WOR 
TH" BOX¥BC" DBLNS"!LO=LO+BO¥BC 

788 IFAS>@THENPRINTAS"ASTROLABES WORTH"A 
S¥AC"DBLNS"!:LO=LO+AS*AC 

79G IFSA>@THENPRINTSA"SACKS OF SALT WORT 
H"SAXCS"DBLNS"!:LO=LO+SAXCS 

SGG IFIR>@THENPRINTIR"IRON INGOTS WORTH" 
IR¥IC"DBLNS" !:LO=LO+IR¥IC 

819 IFGU>S@THENPRINTGU"BARRELS OF GUNPOWD 
ER WORTH"GU*¥GC" DBLNS" :_LO=LO+GU¥GC 

S29 IFQU>STHENPRINTQU"QUADRANTS WORTH"GU 
¥QC"DBLNS"!:LO=LO+QU*GC 


228 


839 PRINT: PRINT" TOTAL VALUE OF GOODS IS" 
LOOT "DUBLOONS" 
349 PRINT"PRESS 1 TO TRADE WITH THE NATI 


VES" 
St 

“9 PRINT" OR 2 TO RETURN TO THE VOYAG 
E " 

868 GETBS: IFBS=""THENS6a 
870 REM 


S89 IFBS<"1"O0RBS>"2" THENS69 

S99 IFBS="1" THENBS="2" > RETURN 

960 IFBS="2" THENBS="3" 2 RETURN 

9935 PRINT"CLT BLU?" 

919 RETURN 

920 END 

P3GD REMHKKEKEKKHKKEKHKKKEKE 

9490 REM TRADE 

959 PRINT" {GRN}------------------------- 


769 PRINT" {LT GRNSCAPTAIN, WHICH GOODS W 
ILL WE SELL?® 

2oo (RR LN OUGRNG SS5 iS SS SS SS Ss Fe Se ee 
SS a 1) = Oe aa 

76 GETBS: IFBS=""THEN9?E 

9386 IFBOSSTHENPRINT"1 - BOLTS OF CLOTH" 
998 IFAS?>STHENPRINT"2 - ASTROLABES"” 

1966 IFSA>STHENPRINT"3 - SACKS QF SALT” 
1619 IFIR>O@THENPRINT"4 - IRON INGOTS" 
19290 IFGU>STHENPRINT"S - BARRELS OF GUNP 
OWDER" 

19390 IFQU°>STHENPRINT"6 - QUADRANTS" 

196446 PRINT"? - TQ BUY FROM NATIVES" 

19356 PRINT"S - TO RETURN TO VOYAGE" 
£960. HS aaa ae Se ee ae ee 
19790 GETAS: IFAS=""THENIG/S 

1989 IFAS<"1"ORAS>"S"THENIS7¢ 

1990 IFAS="S"THENPRINT"CILT BLU” -RETURN 
1995 PRINT" {WHT}3" 

119690 IFAS="1" THEN1 299 

1116 IFAS="2" THEN1I319 

1129 IFAS="3" THEN1429 

11360 IFAS="4" THEN153¢ 


1149 IFAS="S5" THEN1649 
1150 IFAS="6" THEN175S9 
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1169 IFAS="7" THEN1I869 
1176 GOTO19676 

118G@ GOSUB3199 

1199 RETURN 


1299 REM X¥ SELL CLOTH ¥* 

12196 IFBO<1THEN1189¢ 

1226 PRINT"WE HAVE” BO"BOLTS WORTH"BC" DBL 
NS EACH" 


12390 PR=INT (BC¥RND(1))°ITIFPR<BC/2THENI239 


1246 PRINT"THE NATIVES ARE OFFERING"PR"P 
ER BOLT" 


12495 PRINT on {RED}” Cf ff tf £4 ft ft tt tt ft ft ft ft ft tt tt tt tt tt 0 tt tt Mt tt 
i a a a a eel 
1259 PRINT"{RVS ON}{YEL} HOW MANY D 


GO YOU WANT TQ SELL "5 
1255 PRINT"{RED} **%*%* 727 #eanvwvnnnnuvnnrnnnunn 


ewe ee eee eee RUS ORR CGY.) 
126@ INPUTK 

1276 IFK>BOTHEN126@ 

1288 CA=CA+K¥PR 

1299 BO=BO-K 

138 GOTO9SS 

1319 REM ** SELL ASTROLABES ** 


13298 IFAS<1THEN1I189 
1330 PRINT"WE HAVE"AS"ASTROLABES WORTH"A 


C"DBLNS EACH" 
13949 PR=INT (ACXRND(1))2IFPR<AC/2THENI3499 


1359 PRINT"ALL THE NATIVES OFFER IS"PR"E 
ACH" 


1355 PRINT" {RED} *7*"*@e vw unnunnnnnannnnnnnn 


i Mt ia Rar hae a ai iat ll Neate | 


136646 PRINT"{RVS ON} C{YEL} HOW MANY D 


O YOU WANT TO SELL "5 

137G PRINT“6RED > 7 0 6.4 0088 MERI EMME 
a Ne A ete Ma ashen ee Od] "dh OFF} {GY oo" 

1375 INPUTK 


1389 IFK>ASTHENILS75S 
13° CA=CAt+K¥PR 


149G AS=AS-K 

1919 GOTO 375¢ 

1426 REM *% SELL SALT ** 
19360 IFSA<1THEN1189 


194G PRINT"WE HAVE"SA"SACKS OF SALT WORT 
H"CS"BDLNS EACH" 
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19596 PR=INT (CS¥ERND(1)): IFPR<CS/2THEN1459 
1469 PRINT"THE LOCALS’ BEST OFFER IS"PR" 


EACH" 

1465 PRINT" CRED 100" ea cere e in eee xe 
PNUD 

1478 PRINT"{YEL3{RVS ON} HOW MANY D 
O YOU WANT TO SELL "3 

L475. (PRINT ORE Dy 6 rr See eee re erin enemies 
RARE RE RMN EHH eee RUS ARES LOY Oa 

1489 INPUTK 

1499 IFK>SATHEN148¢ 

1599 CA=CA+K¥PR 

1519 SA=SA-K 

1529 GOTO95e 

1539 REM ¥* SELL IRON INGOTS ¥%* 

1549 IFIR<1THEN118¢ 

1558 PRINT"WE HAVE"IR"INGOTS WORTH"IC"D 
LNS EACH" 

1569 PR=INT(IC#RND(1)) 2 TFPR<IC/2THEN154@ 
1578 PRINT"THE BEST OFFER FOR IRON IS"PR 
"EACH" 

(S75) PRINT “ORE Ds 0 o et Oe eee me 8 ee 
ree 

1589 PRINT"{RVS ON}{YEL} HOW MANY D 
OQ YOU WANT TO SELL ai 

S85 (PRINT URED 3 Ces ere cnn anime A alms miviele 
weennunnuunneweeCRYS OFFI(GY 33" 

1599 INPUTK 

1696 IFK>IR THEN 1599 

16198 CA=CA+K¥PR 

1628 IR=IR-K 

1638 GOTO9S5SE 

1649 REM ** SELL GUNPOWDER *X 

1656 IFGU<1THEN1189¢ 

1668 PRINT"WE HAVE"GU"BARRELS WORTH"GC"D 
BLNS EACH" 

1678 PR=INT(GC¥RND(1)): IFPR<GC/2THENL679& 
1688 PRINTPR"EACH IS ALL THEY ARE OFFERI 
NG" 

1685 PRINT" {RED} *""*"Ceenwennannanwnanas 
wenn 

1699 PRINT"{RVS ON}{YEL3 HOW MANY D 


QO YOU WANT TO SELL jak 
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16995 PRINT" {RED} 7%" 44 4euane fe tf 0 tf tt et th ft ff ff tt ott ff 
HHWHHNHHHHNREE F&F RNOS OFF3iGY ot 


1/766 
1716 
1726 


1736 
1749 
1736 
1769 
1776 


INPUTK 
IFK>GUTHEN1?769 


CA=CAtK¥XPR 
GU=GU-K 
GOTO9S9 


REM ** SELL QUADRANTS ** 
IFQU< 1 THEN1189 


PRINT"WE HAVE"GQU" QUADRANTS WORTH"QC 


"DBLNS EACH" 


1786 PR=INT (QC¥RND(1)):IFPR<QC/2THEN178S2 
1796 PRINT"FOR QUADRANTS, THEY OFFER"PR" 
EACH" 

1795 PRINT" {RED}” fe 82 tt ft 08 tt tt ft tt tt 0 tt 8t 08 tt te tt ft 80 tt ft tt 


Sl i SLAs A GE a ad Sea Ma 


1899 PRINT"{RVS ON}{YEL3} 


O YOU WANT TO SELL 3 


HOW MANY OD 


1895 PRT Ry Ue ie LOE SU EEG AE MEE 
Saaie Yimin Ane RS OEE CGY (Sa. 

1819 INPUTK 

1829 IFK>GQUTHEN1819 

1838 CA=CA+KXPR 

1849 QU=QU-K 

1859 GOTO95e 

1869 REM ¥¥ BUY FROM NATIVES ¥* 

1870 GETBS: IFBS=""THEN187@ 

188@ PRINT"{GY 3}----------------------- 
1899 PRINTTAB(7)3">>YQU HAVE"CA"DBLNS<<" 
= PRINT 

1895 PRINT" ----------------------------- 
----------- {GY 23" 

1996 PRINT"THE NATIVES ARE OFFERING: " 
191G BI=9+INT(RND(1)*7) 

192@ PRINTTAB(4)3"1 - FOOD AT"BI"DBLNS P 

ER SACK" 

1938 SL=38+INT(RND(1) ¥9) 

1949 PRINTTAB(4)3"2 - SLAVES AT"SL"DBLNS 
EACH" 

1959 PRINTTAB(4);"3 - TO RETURN TO VOYAG 

en 

1968 GETBS: IFBS=""THEN1 969 
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19796 IFBS<"1"ORBS>"3" THEN1LY69 


1996 IFBS="3" THEN118¢9 


2690 IFBS="2" THEN2976 
269198 PRINT"HOW MUCH FOOD DO YOU WANT" 


G26 INPUTK 
S38 IFK*BI>CATHENPRINT"YOQU DON’T HAVE E 


NOUGH MONEY” : GOTO2929 

2649 FO=FO+K: CA=CA-BIXK 

2456 PRINT"{GY 33> TRANSACTION COMPLETE 
€<"2; GOSUB31996: GOTOIS/7@ 


24466 GOTO199S 
2676 PRINT"HOW MANY SLAVES DO YOU WANT” 


2689 INPUTK 

26998 IFKXSL>CATHENPRINT" THAT IS BEYOND Y 
OUR FINANCES”: GOTO296896 

21990 ME=ME+K: CA=CA-SL#K 

21190 PRINT"THEY’VE BEEN ADDED TO YOUR CR 
EW": GOSUB31996: GOTO1876 

ZLZLGD REMKKKKKKKKKKEKKEKEKEKKKEE 

21398 REM DEATH FROM SCURVY 


om ame ew oe ewe ee ew eee aw ow asm 


21490 PRINT"DUE TO A LACK OF FRESH FOOD" 


2150 PRINT"SCURVY HAS HIT YOUR SHIP..." 
2160 GOSUBS19¢9 


2176 K=ME/3:K=INT(RND(1)*¥K+t1) 
2129 PRINTK"MEN HAVE DIED" 


2198 GOSUB31996 
22899 ME=ME-K 


22196 RETURN 
LL2Z2G REMHEKKHKKEKKHKEKKHKKKEKK HEHE E 


22390 REM SHIPWRECK 


22499 PRINT"YOUR SHIP IS FOUNDERING IN HE 
2256 PRINT"SEAS...YOU ARE IN PERIL...... 
2268 GOSUB319¢ 


22790 IFRND(1)>.8THEN2376 
2286 PRINT: PRINT" THE STORM IS PASSING... 
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22L2IPG 
2366 


PRINT"BUT SOME OF YOUR GOODS AND" 
PRINT"MEN WERE SWEPT OVERBOARD...” 


2318 ME=3*INT (ME/4) : BO=S¥INT (BO/6) 

232G AS=7XINT (AS/8) !:SA=3¥INT (SA/4) 

23368 IR=4¥INT(IR/S) : GU=5*INT (GU/6) 

2349 QU=7KINT(QU/8) 

2358 GOSUB3199 

236@G RETURN 

2376 PRINT:PRINT"A MIGHTY WAVE SWAMPS YO 
UR SHIP” 

238@ PRINT"AND IT GOES DOWN TO THE BOTTO 
me 

2398 GOSUB319¢ 

2499 GOTO?7GE 

SILD REMEXKHHK KKK HEHEHE 

2429 REM MUTINY 

2421 PRINT"----------------------------- 
ome wee wwe we we Sg 

2439 PRINT"THE MEN ARE UNHAPPY WITH YOUR 
2449 PRINT"LEADERSHIP, THERE IS TALK OF" 
2459 PRINTTAB(12)3"A MUTINY..." 

2468 GOSUB319¢ 

247@G IFRND(1) >. 8THEN2549 

2489 PRINT"BUT YOU TAKE CONTROL, HANG" 
2499 PRINT"TWO OF YOUR CREW TO TEACH" 
2599 PRINT"THE OTHERS A LESSON, AND" 
251G PRINT"CONTINUE WITH THE VOYAGE" 
25298 GOSUB319¢ 

253 RETURN 

2548 PRINT"IT WAS SUCCESSFUL...AND YOU" 
2559 PRINT"ARE PUT TO SEA IN A SMALL" 
2568 PRINT"BOAT...THIS IS THE END" 

2578 GOSUB3199 

258@ GOTO7s¢ 

Z5P9D REMERIAEEHIIESIIE 

269G REM PIRATES 

26G1 PRINT" ----~-----------------~------ 
jms cme mee ee we ee ee ee gine 

2618 PRINT"A MEAN-LOQKING PIRATE SHIP" 
262@ PRINT"IS SIGHTED OFF TO STARBOARD" 
2638 GOSUB3199 

264@ PRINT"IT COMES UP ALONGSIDE” 
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2638 
26668 
26768 
2685 
2698 


2/7GBSG 
: Ss" 
2716 


2/726 
2738 


2748 
2759 
AND 


2/768 
2778 


2/788 


27978 
2396 
2819 
2326 


330 
S840 


‘28359 
28608 


23768 
2339 
2896 
2988 
2916 
2926 
2930 
29°96 


2956 
2° 6D 


CLOTH 


2976 


GOSUB3196 

T=INT (RND (1) #3) 

IFT=O6THEN27495 

IFT=1THEN2826 

PRINT" YOU OFFER TO BUY YOUR FREEDOM 


PRINT" THEY AGREE, TAKE YOUR DUBLOOQN 


PRINT"AND YOUR GUNPOWDER...." 
CA=9: GU=6 
RETURN 


PRINT" THE SAVAGE PIRATES BOARD THE" 
PRINT"SHIP - KILLING MEN LEFT,RIGHT 
CENTRE" 

K=INT (RND (1) #ME+ME/ 3) 

GOSUB3199¢ 

PRINTK"HAVE BEEN KILLED IN ALL" 
ME=ME-K 

GOSUB3199¢ 

RETURN 

PRINT"LUCKY YOU...THEY HAVE RUN" 


PRINTTAB(S8)$3 "AGROUND!!!!" 
GOSUB3199¢ 


RETURN 

RE MEEKER EKHHEK HEHEHE 
REM INITIALISATION 

PRINT" {CLR?"” 

REM 

DIMAS (9) 
ME=199+ INT (RND(1) #39) 
CA=290+ INT (RND (1) *¥59) 
FO=196+INT (RND(1) #39) 
FE=.92+INT (RND(1) #19) /1966 
IFFO/ (FEXME) >11THEN2919 
BO=1906+INT (RND(1)*¥390)>REM BOLTS OF 


BC=S+tINT (RND(1)*5) °REM VALUE OF EAC 


H BOLT OF CLOTH 


29°36 
299R 


AS=135+INT(RND(1)%#5) °>REM ASTROLABES 
AC=26+INT(RND(1)#5) °>REM VALUE OF EA 


CH ASTROLABE 


39GB 
Le 


SA=SG+INT(RND(1)%#7) °>REM SACKS OF SA 
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39198 


+ 
S828 


2G3DG 
T 


3948 
3639 
3968 


3G7B 
398BEG 


3A9R 
3108 


3119 
$126 
3130 
3149 


31356 
3169 


3165 
3176 
3189 


3199 
32GB 


3216 


3226 
3238 
32499 
3250 


CS=7+ INT (RND(1)*49) ;>REM VALUE OF SAL 


IR=S6+INT(CRND(1)+8) >REM IRON INGOTS 
IC=5+INT(RND(1)¥3):REM VALUE OF SAL 


GU=S+tINT  (RND(1)¥2) 
GC=9G+ INT (RND( 1) ¥29) 
QU=16+ INT (RND (1) ¥4) 
QC=3G+INT (RND(1)*6) 
WE=9 

PT=1 

SC=G 

SH=6 

mMU=0 

PI=9 

FORJ=2TO9? 


READAS (J) 
NEXT I 


POKES3231,90:PQKES3289,2 

RETURN 

RE MEKKKKKKKKKKKKKKKKKKRKE 

REM DELAY 

REM 

FORP=1T0O1596: NEXTP 

RETURN 

REMEXKKKEKKKKKKKKKKKKKEE 

REM DATA 

DATA" THE CANARY ISLANDS", "THE CAPE 


VERDE ISLANDS”, "CAPE ST AUGUSTINE" 


32690 


DATA"RIO DEJANEIRO", "THE SANTA CRUZ 


RIVER" 
32760 DATA"TIERRA DEL FUEGO", "THE ISLAND 


OF MACTAN", "{RVS ON} {YEL} THE PORT OF SPA 
IN¢RVS OFF” 


READY. 
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DISASTER FLIGHT 


Here's your chance to fly a plane, with a complex and 
fairly realistic flight simulator program. 


Russia has planted a nuclear device somewhere in the 
United States. The. president has called an emergency 
meeting with the country's top five nuclear physicists. 


You are the president's private pilot, and you've been 
assigned to find, pick up and deliver the five 
scientists to New York, where the president is waiting. 
However, to do this you have to cover every inch of the 
country in order to find them. 


If you decide to fly below 1000 feet, then you run the 
risk of hitting a mountain. You are able to go around, 
or over a mountain, but if you take too long to decide 
what to do, you'll fly straight into it. 


As you fly around the country, you'll see the current 
State that you're over is shown in the top left hand 
corner of the screen in purple. If you pass over a State 
which contains a scientist, then the name of the State 
will be shown in white. Each State is shown as one or 
more five by five squares. As some States are Larger 
than others, you'll see these represented by two or more 
of the groups of squares. 


FLYING YOUR PLANE 


This is not so easy. ALL the instruments you see on the 
screen have their own uses. You'll find that by 
operating more than one instrument at a time, you'Ll be 
able to fly the aircraft more smoothly, and find certain 
States more easily. 
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THE ELEVATOR 


The elevator shows the position of your plane's nose: 


A - if the elevator is above the central 
position, then the nose is pointing upwards 


B- if the elevator is in the central 
position, then the plane is flying horizontally 


C -— If the elevator is below the central 
position, then the nose is pointing downwards. 


TAKING OFF 


When preparing to take off, you must set the elevator 
below the central position. After your airspeed exceeds 
360, move the elevator to the central position, and the 
plane will Lift off. 


If you're trying to take off, and your airspeed is Less 
than 360, and/or you don't have the elevator in the 
correct position, you'Ll stall the airplane and it will 
crash. 


YOUR AIRSPEED 


A - if your airspeed is equal to 500, and the 
elevator is set in the central position, your 
plane will lose altitude. THIS IS THE ONLY WAY 
YOU CAN LAND THE PLANE. 


B - if your airspeed is 500, and the elevator 
1s set above the central position, then your 
altitude will remain steady 


C - if the elevator is in the central 


position, and airspeed is above 500, you will 
Stay on the same Level 
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D-—- if the elevator is above the central 
position, and speed is greater than 500, then 
you will climb 


E- if the elevator is below the central 
position, you'll Lose altitude. If you try to 


Land with the elevator in this position you 
will crash. You can only Land as in (A) 


THROTTLE 


The throttle has five different positions, which 
determine how fast you will fly. 


Throttle position: Maximum speed achieved: 


1 90 
2 200 
3 900 
4 1000 
9 2000 


When taking off, the trottle must be in either position 
3, 4 or 5 as you must be going faster than 360 in order 
to leave the ground. The throttle must be in position 5 
when you're Landing. 


Pressing the 'fire' button on your joystick increases 
the throttle setting and airspeed. Pressing the space 
bar cuts the throttle setting, and slows you down. Note 
that if your speed falls below 200 when you're in _ the 
air, you will stall and crash the plane. 


COMPASS 


The compass setting changes as you turn your craft. The 
Latitude and longitude settings change as you move 
around. (Note that Latitude measures your north/south 
orientation, and Longitude your east/west.) 
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If you fly off the north end of the map, you'll reappear 
at the south end (and at the north end if you fly off 
the south, the east if you fly off the west, and at the 
western end if you fly off the east end). 


PITCH AND ROLL 


This instrument shows the Lean of the plane. It is 
modified by the way you turn your craft. 


UNDERCARRIAGE 


Press D to Lower the undercarriage 
Press U to raise it 


Once you've taken off, we suggest you raise your under- 
Carriage fairly smartly. You must be below 150 feet 
before you'Ll be able to Lower your undercarriage in 
order to Land. A red light is visible beside the 'U' 
when your undercarriage is up. It turns orange when the 
undercarriage is down. 


BRAKES 


You should apply the brakes as soon as you land, or you 
will run out of runway. 


You should release the brakes, when you are ready to 
take off. A Light will appear in red beside the 'B’ on 
your panel when the brakes are applied, and this will 
turn orange when you release them. 
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MOUNTAIN 


You fly over or around a mountain to avoid it. You must 
do one of these things to prevent your plane flying head 
on into the mountain. You must be going faster than 500 
in order to get over the mountain, and the elevator 
should be above the central position. 


To go around the mountain peak, simply choose the side 
of the mountain you intend to go around. If the edge of 
the mountain reaches the end of the screen as _ you 
approach it, then you have successfully flown around it. 


The compass will not be altered when you fly around a 
mountain. 


TO TAKE OFF 


Here's the steps you must follow: 
1 -— Move the throttle over the central position 
2 —- Have the elevator set below the central position 
3 — Ensure the undercarriage is down 
4 — Release the brakes 


5 — When your airspeed is greater than 360, move the 
elevator to the central position 


6 — Raise the undercarriage before the altitude 
reaches 200 feet 
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TO LAND 


The 
follows: 


1 — When the altitude is below 150, 


undercarriage 


sequence of steps needed to land your plane is as 


Lower the 


2 — Set the throttle to the middle position, so that 
airspeed drops to 500 


3 — Put the elevator in the central position, so 


your altitude starts to drop (note that you will 
crash if your elevator is below the central 


position) 


4 — Engage the brakes once you've Landed 


9 — Note that your engines will shut off 


automatically 


Happy flying, pilot. 


5S POKES4276, 9: POKE5S4283,9 

1G POKES4296, @: POKES4278, 249: POKES4277,9 
* POKES4276, 129: POKES4273, 37 

20 POKES4284, 9: POKES4285, 249: POKES4283, 1 


7: POKES4289, 12 
3g GOoTOSE¢E 
498 mos(i)=" 


ON}>_{RVS OFF} 
9419 mos(2)=" 
_{RVS OFF} 

426 MoOS(3)="{BRN} 


_¢{RVS OFF} 
436 MOS(4)=" 
CRVS OFF} 


448 mos(5)=" 
_{RVS OFF} 
456 MO$(6) =" 

_{RVS OFF3 


TWH tRVS 


{RVS OQN>> 


{RVS ON>> 


{RVS ON?D> 


{RVS ON>> 


{RVS ON?D> 
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466 
476 
439 


496 
ven 25 2 


S85 
51g 
5265 
53g 
549 
559 
548 
572 
53 
598 
6G 
619 
626 
63g 
64GB 
465m 
645 
47 
BGG 
89a 
SAS 
91g 
92G 
93g 
945 
959 
94S 
97 
98g 
994 
995 


MOS (7) =" CRVS ON}D 
_{RVS OFF? " 
MOS (8) =" [RVS ON}D 
_{RVS OFF} " 
MOS (9) =" CRVS ON}D 
_{RVS OFF} : 
RETURN 
REM ¥*¥* FLIGHT 5241 xx 
GOSUB496 


REM SET ASIDE (AS) FOR COMMANDS 
REM (AL) FOR ALTITUDE 

REM (FU) FOR FUEL 

REM (LO) FOR LONGITUDE 

REM (LA) FOR LATITUDE 

REM (AS) FOR AIRSPEED 

REM (TI) FOR TIME ELAPSED 

REM (TD) FOR SET TIME 

REM (UC) FOR UNDER CARRIAGE 

REM (BR) FOR BRAKES 

REM (A) FOR A LOOP DELAY 

REM (CO) FOR COMPASS 

REM (HA) FOR DESTINATION 

REM (HO) FOR DESTINATION 

REM (EL) FOR ELEVATOR 

REM (ROS) FOR ROLL DRAWING 

REM (COS) FOR COMPASS DRAWING 

REM KEKKKHKKKKEKETREKEEKE 
REMECEHEHKEHKKKEKKKEKEKEKKKKKKKKKKEKE 
REMX#SET UP VARIABLES & STRINGSX*¥ 
REMEHHKEEKKKKKKKEKEKEKEKKKEKKEKKKKE 


COP( 1) ="{CYNIVCCCCETI" 

COS(2)="7 {YELINICYNG fi 

COS (3) =°7 oi 

COS(4) ="JCVYELIW CTREDFQ CYELSECCYN} 7" 
COS$(5)="7 fas 

COS (6) ="7 {YELSS{CYN> ofa 

COS (7) ="J@CCCCK" 

FORA=1TOS 

LA(A) =INT (RND(1)#43) >LOQ(A) =INT (CRND (C1 


) X49 ) 
796 LA=LA(A)!:LO=LO0(A) : GOSUB59998: DS(A) =P 


S$: IFD$ (A) =D%(A-1) THENS95 
997 DDS=LEFTS(D$( A), 4) :IFDDS="NEW "ORDDS 
="ATLA"ORDDS=" GULF "THENSS5 
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998 NEXT 
POS LA=INT (RND(1)*¥24) 


1968 LO=INT (RND(1)*49) 
191g 

999 

1911 NEXT 

1928 HO=INT(RND(1)*69) 
194G CO=INT(RND(1)#8) +41 
1959 FU=4999 

1969 AS=@:UC=1: BR=1 

1978 EL=2:AL=@: TH=G 

1986 ROS(1)="{CUR RT}{CUR 


R RTS{CYN}VCCCCECLI" 

1999 ROS(2)="{CUR RTFTCUR 
R RTFT7 as 

119646 ROSB(2)="{CUR RT}{CUR 
R RTF/ © a 

1116 ROS(4)="{CUR RT3{CUR 


RT?{CUR 


RT {CUR 


RTs (CUR 


RT?{ CUR 


R RTF SLIORFCCCWHT FACTOR FCCCCYN: 7" 


1126 ROS(2)="{CUR RT 3{CUR 
R RTFJ7 fas 

1139 ROS(2)="{CUR RT}{CUR 
R RTF7 qe 

1199 ROS(7)="{CUR RT}3{CUR 
R RT} /7@CCCCCK" 

1159 BS="G6GG69GGC(CUR L}{CUR 
1169 TD=INT(RND(1)*5) +1 
117¢ 
1189 
1196 
120906 
1219 
1229 
1236 


TD=9 
TIS="GB5GGG" 


RT?{CUR 


RT( CUR 


RT{CUR 


GOSUBS9996: FORA=1TOS: IFP#$=D% (A) THEN 


RTs(Cu 


RTsi Cu 


RT3({CU 


RTs(Cu 


RTsiCu 


RT?{Cu 


RTs{Cu 


PI ACUR Lee 


IF TD=1THENTDS=" 9969899" 
IFTD=2THENTDS="691699" 
IFTD=S3THENT DS=" 663269" 
IF TD=4THENTDS=" 666496" 
IF TD=STHENTDS="9612899" 


1249 


DS="{HOME>S{( CUR 


CUR DN TCUR DN?{CUR 
CUR DN3{CUR DN {CUR 
CUR DNF{ CUR DN3{CUR 
CUR DN;3{CUR DN3{CUR 


DN3{CUR 
DN? (CUR 
DNSC( CUR 
DN?{ CUR 
DNL CUR 


DN3{CUR 
DN? {CUR 


DN {CUR 
DN?{ CUR 
DN? (CUR 


DN¢ 
DNC 


DN 
DNs 
DN?" 


1245 L%="{CUR 


+{CUR 


7( CUR 
+{ CUR 


7(CUR 


RT>{CUR 
RT<{( CUR 
RT {CUR 
RT{( CUR 


RT?<(CUR 
RT>{CUR 
RT(CUR 
RT?{ CUR 
RTFICUR 
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RT3< CUR 
RT3¢(CUR 
RT(CUR 
RTT CUR 
RT?{CUR 


RTs( CUR 
RT>${CUR 
RT?( CUR 
RT?{ CUR 
RT?{CUR 


RT 
RT 
RT 
RT 
RT 


3{CUR RT}{CUR RT}{CUR RT?{CUR RT3{CUR RT 
?€CUR RT}{CUR RT}{CUR RT}{(CUR RT}{CUR RT 
{CUR RT}{CUR RT}{CUR RT}{CUR RT}{CUR RT 
>€CUR RT}" 
125@ FUS="{RED}O77A{CUR DN3{CUR L3{CUR L 
{CUR L}{CUR L}%{YEL}{RVS ON} (RVS OFF? 
(RED}’{CUR DN3{CUR L3{CUR L3{CUR L}{CUR 
L3%{RVS ON}CYEL} {RVS OFF}{RED}7{CUR DN 
>{CUR L3{CUR L}{CUR L}{CUR L}%{RVS ON} CY 
EL} <(RVS OFF}{RED}*°{CUR DN}{CUR L?{CUR 
L3{CUR L}{CUR L3%{RVS ON}{YEL} {RVS OFF 
7€{RED}*’€CUR DN}{CUR L?€CUR L}{CUR L}{CUR 
L3%(RVS ON}{YEL}? {RVS OFF3{RED?’" 
1269 FUS=FUS+"{CUR DN}{CUR L}?{CUR L3{CUR 
L3{CUR L3{RED3L//:" 
1276 SC$="{GRN}{RVS GON} 
1289 ASS="{RED),""""""5 {CUR DN}C(CUR L3{C 
UR L}{CUR L}<CUR L3{CUR L3{CUR L?{CUR L?} 
{CUR L}{RVS ON} /{CUR RT}{CUR RT}{CUR RT} 
(CUR RT}{CUR RT3{CUR RT?{RVS OFF} /C€CUR D 
N3{CUR L}€CUR L}¢€CUR L}?{CUR L}{CUR L3<{CU 
R L3{CUR L3{CUR L3¢{RVS ON3""""""CRVS OF 
Fp?" 
1398 SC=1924:CL=55296 
1316 THS="{REDIO77PO77P{CUR DN}{CUR Li{C 
UR L3{CUR L3{CUR L}{CUR L3{CUR L3{CUR L} 


€CUR L34tRVS ONC YELLS {RVS OFFs{ RED 
+¥{CUR DNI{CUR L3{CUR L3{CUR L}3{CUR L3iC 


UR L3CCUR L3{CUR LetTCUR LilL//ilL//etTCUR D 
N>{CUR L}{CUR L} {CUR L3{CUR L}{CUR L}¢{CU 
R L}CCUR Li} CCUR L;3tTOR} THROTTLE” 

LSGG™ REM HHKKHHHHH HEHEHE HH HEHE KHKKKKEH 


1516 REM *X*XX#XXSET UP SCREENKKREKXE 
LS2G REM KKEHKHKHKKHH KKK KKK HH KKH HIE 


153G PRINT"{CLRI (THOME "5 >-FORA=1 TOS: PRINT 
RWS (A) 5 2 NEXT 

135946 POKES3281,06: POKES3289,9 

1550 PRINTRWS(2)5;°;PRINTRWS (3) 

15696 PRINT 

1576 GOSUB9156 

1666 PRINTLEFT$(D%$,13)FUS:2:PRINT"{RVS OFF 
>{PURSELEV" 

16198 PRINTLEFTS(D%$,13) "(CUR RTFICUR RT}3¢E 
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CUR RTZCCUR RTFCICUR RTFICCUR RTFICUR RTF 
CUR RT}?{CUR RTI{CUR RTI{CUR RT3"FUS$3 2 PRI 
NT"<¢CUR DN} CCUR L3{CUR LICCUR LT CUR Lit 
RVS OFF} {PUR}FUEL" 
1646 GOTO1716 
16508 PRINTLEFTS(D%,11) 
1669 GOSUBYSSSS 
1676 ZS=LEFTS#S(LS&, 39) 
673 PRINTZSCOS (1) SPRINTZSCOS (2) [PRINTZS 
O$ (3) :PRINTZ$COS (4) ! PRINTZ$COS (5) 
16890 PRINTZ$COS (46) S:PRINTZSCOS (7) 
16998 RETURN 
1716 PRINTLEFTS(D%,13)2Z26"{CUR L} {CUR L}¢ 
CUR L3{CUR L3{CUR L3{CUR L;3{CUR Li {CUR L 
{CUR L3{CUR L} {CUR L} {CUR L3{CUR Li} {WHT 
(LIORGWICUR RTGCICUR RTFCICUR RTIFCCUR RTF 
CUR RT3{CUR RTI{CUR RT3{CUR RTIC{CUR RT3W 
CWHT 3S" 
1726 PRINTLEFTS(D%,21)" {LT GRN}SPEED 
ALT." 
1739 PRINTLEFTS$(D%, 26) LEFTS(LS, 39) "{ WHT} 
COMPASS" 
1749 PRINTLEFTS(D%,19)LEFTS(LS, 27) "{ WHT} 
UICUR RT}{CUR RTFCICUR RTFCCUR RTFCCUR RT 
S{CUR RTFICUR RT} {CUR RT 3{CUR RT}LCUR RT 
{CUR RT3B" 
1758 POKE17?72, 87: POKES6944,8 
1769 POKE1782,81:POKE56954,2 
1776 PRINTLEFT$(D%,15) SPC(17) THS 
18790 PRINTLEFTS (DS, 24) SPC(26) "(WHT LONG 
LAT." 
1889 GOSUB12999 
18990 GOSUB165¢ 


1966 RWS$(1)="{RVS ON CGRN} 
{BLK} { GRN > . 


1916 RWS(2)="{RVS ON (GRN? 


{BLK > {GRN > ss 
19206 RWS(2)="{RVS ON} C(GRN} 

{BLK} { GRIN + . 
1930 RWS(3)="C€RVS ONS CGRN} 

{ BLK > {GRN +> $4 
1940 RWS(4)="{RVS ON CGRN} 


{ BLK > {GRN3Z 7 
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1956 RWS(5)="{RVS ON CGRN> t 


BLK} {GRN} i 
1949 RWS$(6)="{RVS ON} {GRN} {B 
LK} {GRN} : 
1978 RWS(7)="{RVS ON} {GRN} {BL 
K 3 | {GRN} " 
1986 RWS(8)="{RVS ON} {GRN} {BLK 
; {GRN} ‘ 
199@ RWS(9)="{RVS ON} {GRN} {BLK} 
{GRN} " 


269G LNS="{WHT}’%{CUR DN} {CUR L}<CUR L} 
{CUR DN}{CUR L3{CUR L}’%{CUR DN}{CUR L} 
(CUR L} {CUR DN}{CUR L3{CUR L}*%{CUR DN 
{CUR L3{CUR L} {CUR DN}3{CUR L}{CUR L?’ 

{CUR DN}{CUR L}{CUR L} {CUR DN}{CUR L3} 
{CUR L}3°%" 

20995 LNS(1)="{WHT} {CUR DN}3{CUR L}<CUR 

L}*?%{CUR DN3{CUR L}{CUR L} ‘¢CUR DN3{CUR 
L3{CUR L}3’%{CUR DN3{CUR L3{CUR L} {CUR 
DN3}{CUR L}<CUR L}’%{CUR DN}{CUR L}<CUR 

L} {CUR DN}{CUR L3{CUR L}’%{CUR DN}{CUR 
L}{CUR L} ” 

20198 PRINT" C(HOME}"3 :FORA=1TO9: PRINTRWS(A 
)3 2NEXT 

2828 PRINT: PRINT" {HOME3 "SPC(138)LNS 

295@ PRINT"{CUR UP}{RVS ON} {RED} 

3 

2968 PRINTLEFTS#(D%&, 13) LEFTS(L%, 39) "{RVS 

OFF3<{CYN37 J": GOTOS99¢g 

SAGA REM HKEKHKHHKKHHKKH HHH HIN 

3918 REM *¥% MAIN ROUTINE ** 

SHZA REM HKEKHHKKH HHH KK HHH HIE 

3938 GOSUBSSSS: GOSUBS5aq 

3946 GETAS: IFAS="" "THENTH=TH-.52 GOSUB1SS 

BS 

3958 REM *% CHECK FOR UNDER CARRIAGE ** 

3G6G IFAS< > "U" ANDAS< > "D" THENS1 99 

3978 IFUC=1ANDAS$="U" THENUC=@: POKE1772, 81 
*POKES6944, 2 

3988 IFUC=@ANDAS="D" THENUC=1:POKE1772, 87 
*POKES464944,8 

3998 GOTAsaeeg 

319@ REM ¥% CHECK FOR BRAKES ** 

3B1l1@ IFAS<>"B"THENS149 
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3129 


IF BR=1THENBR=9: POKE1782, 87: POKES695 


4,3: G0TO39096 


3136 
3146 
320568 
321G 
V226 


BR=1!POKE1782, 981! POKE5S6954, 2 
IFAS="T" THENTH=TH-.5: GOSUB1S999 

REM *% DECREASE FUEL ETC ** 
IFCO=1THENLA=LA- INT (AS/599) 
IFCO=2THENLA=LA- INT (AS/599) /2!:LO=LO 


+INT (AS/3590)/2 


3239 
324968 


IFCO=S3THENLO=LO+tINT (AS/S599) 
IFCO=4THENLA=LAtINT (AS/S599) /2°L0=LO0 


+INT (AS/599)/2 


S258 
3269 


IFCO=STHENLA=LAtINT (AS/3599) 
IFCO=6THENLA=LAtINT (AS/569) /2:L0=LO0 


-INT(AS/599) /2 


3278 
32836 


IFCO=7THENLO=LO-INT (AS/599) 
IFCOQ=8THENLA=LA-INT (AS/3596) /2°>L0=LO0 


-INT(AS/5989)/2 


329° 
33968 


3319 
33208 


3330 
33508 


33608 
GIGS 


49619 


IF LA<STHENLA=45 

IF LO<STHENLO=69 
IFLA?74S THENLA=6 
IFLO?>6S8THENLO=9 
LA=INT (LA) =LO=INT (LO) 
FU=FU-INT(AS/125) 
GOSUBSS996D 

REM **% FUEL LINE ** 


IFFUK =4999ANDFU>SS9SGSTHENFUS(1)="{RV 


S ONS{YEL}77{RVS OFF }" 


49260 


IFFUC S9G1ANDFUSSSSSTHENFUS(1)="tRVS 


ONC YEL}8SC(RVS OFF" 


ADG3EG 
yun 
4946 
Se a 
49356 


>} Nn 
4966 
} a 
4976 


IFFU< 3891 ANDFUSS/YSOSTHENFUS(1)="C YEL 


IFFUC S791 ANDFU>S6996THENFUS(1)="{YEL 


IFFUC S691. ANDFUCSSSHSGTHENFUS(1)="{YEL 


IFFUSSSPGIANDFUS S466 THENFUS (1) ="{YEL 


IFFU< =S491ANDFUCSS9GSTHENFUS (2) ="{RV 


S ONS CVYEL+77CRVS OFFS" 
4989 IFFUC 3391 ANDFUSS2O69THENFUS(2)="{RVS 
ON} C(YEL}E8SC(RVS OFFS" 


4GPDG 


ee 


IFFUK S291 ANDFUSSISGSTHENFUS (2) ="{YEL 
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4106 
1eo™ 
411¢ 
} " 
4129 


$ 
413g 


IFFUCS SIG1ANDFUS3S9GG6THENFUS (2) ="{YEL 
IFFU< SSSI ANDFUC2ZSOSTHENFUS (2) ="{YEL 


IFFUS2961 ANDFU<S 286STHENFUS (2) ="{YEL 


IFFU< =2861ANDFUS2799S9THENFUS(3)="{RV 


S ON3(YEL}/77(RVS OFFS" 


414@¢ 


IFFUC 2761 ANDFU>2669THENFUS (3) ="{RVS 


ON} {YELFSECRVS OFFS" 


41359 


Aa 
4169 
Ba ae 
4176 
} " 
4139 
} " 
4196 


IFFUC 2691 ANDFU?> 2599 THENFUS (3) =" YEL 


IFFUC< 2591. ANDFU>2496THENFUS (3) ="{YEL 


IFFUS 2491 ANDFU>23969THENFUS (3) ="{YEL 


IFFUS2 301 ANDFUS 229OTHENFUS (3) =" YEL 


IFFU< =2291ANDFUS2ZISGSTHENFUS (49) ="{RV 


S ONC YELF77CRVS OFFS" 


4208 


IFFU< 2191 ANDFUS2SSSTHENFUS (9) ="{RVS 


ON {VYEL}ESt(RVS OFFS" 


9219 


oe se 


4226 
tae ae 
4230 
} " 
4246 
} " 
$259 


IFFUS 29691. ANDFU? 1LESSTHENFUS (9) =" YEL 


IFFU< 19SS1ANDFU? LSSSGTHENFUS (9) ="fYEL 


IFFUC 1 S61ANDFU? IY SSTHENFUS (49) =" YEL 


IFFUSIYPSIANDFUK< 169696 THENFUS (5) =" C YEL 


IFFUC =1691ANDFU>1ISOSTHENFUS(5)="{RV 


S ON} {YEL}7/Z7C(RVS OFFS" 


94269 


IFFU< 1SG1ANDFU? 149096 THENFUS (35) ="{RVS 


ON} {YELFEEC(RVS OFF?” 


42768 
pun 
4234 
} n 
4296 
} " 
4291 
4295 
4306 
4316 


IFFUS14MG1 ANDFU?1SSSOTHENFUS (35) ="{YEL 
IFFUC 12961 ANDFUSLISSTHENFUS (5) ="{YEL 
IFFUSLISIANDFU< 1SSOTHENFUS (5) ="{YEL 
GOSUBYSSGS 

IFOT=1ANDAL<STHENS999G 


IFBR=1THENS49S 
AS=AS+ (TH#H1G) 
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43265 
43365 
4346 
4359 
4366 
4499 
4465 
44196 
4426 
4425 
4439 


4459 
4455 


4469 
4461 
4465 


GIBB 
44708 


4439 


IF TH=?7 1LANDTH< 2ANDAS > 1 STHENAS=HS39 

IF TH=>2ANDTH< 3ANDAS > 7S THENAS=299 

IF TH=7S3ANDTH< FANDAS > 299 THENAS=S39¢6 
IF TH=>4ANDTH< SANDAS > S969 THENAS=1996 
IF TH=>SANDTH< GANDAS > 1 296GBTHENAS=209090 
IFAL=GANDOT=1 THENI9S969S 
IFAL=9@THENS4S5¢ 
IFEL=3THENAL=AL-INT (AS/29) 
IFEL=1THENAL=AL+INT (AS/19@) 

IFAL > 1SBSGSTHENAL=199990 

IFAL >SANDAS< SSSGTHENAL=AL-INT(AS/19©) 


IFOT=1ANDAL<STHENSS69S 
IFAL< >@ORAS=9THENSS9S 


IFOT=GANDUC=STHENSS9G9S 
RU=RU+ (AS/19) 
IFAL=SANDOT=SANDAS> 1SGANDEL< > 3THEN4Y 


IFRU> 696 THENFSSSS 
PRINT" CHOME? "SPC (18) LNS: FORA=1T04996 


-AS: NEXT: PRINT" {HOME} "SPC (18) LNS(1) 


4496 
4390 


43516 
435269 


IIOS 
II1G 


IG28 
3825 


VOSA 


GOSUBSS9S 

IFAL >SOTHENSS9S 
GOSUB/YS9D 

GOTOQ4319 

REM HKKEKKKKKKEKEKKKEKEEE 
REM ** SET UP SCREEN ** 
REM HEKKKKKKKEKKKERKKERE 
GOSUBSS8H 


PRINTLEFTS (D%,14) SPC (12) FU%(1)"{CUR 


DN} {CUR L{CUR L}"FUS(2)"C€{CUR DNSCCUR L 
7{CUR Li "FUS(3)"{CUR DN}{CUR L3{CUR L3"F 
US(4d) "{€{CUR DN CTCUR L;3{CUR Li "FUS(5) 


VMS3S 
S3A4G 


IFOT=9THENS97G 
PRINT" CHOME?; {PUR} jae 


GOSUB5SS999g 


IOI 
IGOPG 


VIO7 GB 


69565 
6916 


693505 


FORA=1TOS: IFPS=D%$(A) THENPRINT" {WHT 3 
NEXT 


PRINT" C(HOME3 "5 P35 

GOSUB?7 69S 

GOSUB? 696 

IFAL >GANDAL< 1 SGGANDMOK LANDRND(1)>.7 


3 THENGOSUB2 96999 


6951 


IFMO>=1THENGOSUBL SIGS 
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6909 
6916 
6926 
6°98 
7 OOD 


7G16G 
YGB28 


7BS3B 
CUR 


CUR 
CUR 


CUR 


IFAS“ 296GANDOT=1 THENCR=1: GOTO96996 
IFFU< =-19969THEN4990a 
IFAL >269GANDUC=1 THEN4SS99S 
GOTO39928 
REP KEKE SHH HIE HEHE EEE EK ERE 


REM 


*¥X% AIRSPEED & ALTINATOR ** 


REM KHEEHKKKKHEHHEEEKEHKEKHEKEKHEK 
DS="{HOMEF (CUR 


DNFT CUR 
DN3{ CUR 
DNF (CUR 
DN{CUR 


DNF{CUR 
DN?{(CUR 
DN? (CUR 
DN; {CUR 


DN {CUR 
DN3{ CUR 
DN? (CUR 
DN;{ CUR 
DN;{CUR 


DN;{( CUR 
DN {CUR 
DN? {CUR 
DNS{ CUR 
DN?{ CUR 


DNi¢ 
DN3¢ 
DNit 
DN t 
DNi¢ 


CUR DN? {CUR DN}" 

763898 PRINT" {HOMES (CUR 
+{ CUR DNFtTCUR DN TCUR 
{CUR DN {CUR DN {CUR 
+{CUR DN}{CUR DN {CUR 
3{ CUR DN3{ CUR DN}{CUR 


767G PRINT" CHOME?s (CUR 
7{CUR DN3{CUR DN}{CUR 


{CUR DNI{CUR DNF CCUR 
7{CUR DN} {CUR DN} {CUR 
*+{CUR DNF( CUR DN?{CUR 
3{RVS 
71968 PRINT" CHOMES (CUR 
{CUR DN {CUR DN}{CUR 
+{CUR DN{(CUR DN(CUR 
s{CUR DN3{CUR DN {CUR 
{CUR DNC CUR DNICCUR 


DNF {CUR 
DN3{ CUR 
DN{ CUR 
DN}{CUR 
DN? "ASS 
DN {CUR 
DN} {CUR 
DN?{ CUR 
DN {CUR 
DN CTCUR 


ONGILT BLUIGBBGBH" 


DN} CT CUR 
DN3{CUR 
DN?{ CUR 
DNC CUR 
DNTCUR 


+"TAB(7-LEN(STR#S(AS))) AS 


7156 PRINT" CHOME:; (CUR 
{CUR DNZ{CUR DN {CUR 
*+{CUR DNFICUR DN:(CUR 
s{ CUR DN F{CUR DNF{CUR 
+{CUR DN?{CUR DN{CUR 
7166 PRINT" {HOME} (CUR 
+{CUR DNFCCUR DN; TCUR 
#{CUR DN} {CUR DN} {CUR 
+{CUR DNF( CUR DN: tT CUR 
${CUR DN3 {CUR DN} {CUR 
Y"{RVS ONE ILT 
41798 PRINT" {HOME} {CUR 


*+{CUR DNF{CUR DNITCUR 
{CUR DN}{CUR DN}?{CUR 
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DN; (CUR 
DN3{ CUR 
DN{ CUR 
DN?{ CUR 


DN 3TCUR 
DN? (CUR 
DN3{CUR 


DN} {CUR 


DNC CUR 
DN} {CUR 
DN{CUR 
DN3{ CUR 
DNTCUR 


DN? (CUR 
DN>{CUR 
DN(TCUR 
DN (CUR 
DNS {RVS 


DN<{ CUR 
DN Zt CUR 
DNF¢( CUR 
DN ZT CUR 


DN "SPC (9) ASS 


DNFtCUR 
DN ICCUR 
DNF{CUR 
DN {CUR 
DN {CUR 


BLU + G9D9DSGGG" 


DN {CUR 
DN?{ CUR 
DN3{ CUR 


DN {CUR 
DNs{ CUR 
DN3{CUR 


DN?:{(CUR 


DIN 
DN 
DN 
DN 


DN 
DN 
DN 
DN 
RT 


DN 
DN 
DN 
DN 
ON 


DN 
DN 
DN 
DIN 


DIN 
DN 
DN 


DN 


DNF "SPC (19 


DNL CUR 
DN} TCUR 
DN3{CUR 


DN 
DN 
DN 


i} UR DN CCUR DN TCUR DNITCUR 
UR DN3 {CUR DN3}{CUR DN}{CUR 


3"TAB(16-LEN(STRS(AL) )) AL 

7186 PRINT" {HOME}{CUR DN} {CUR 
{CUR DN3TCUR DNS {CUR DNF TCUR 
7TCUR DNIC{CUR DN}{CUR DN {CUR 
*+{CUR DN}{CUR DN?C(CUR DN CCUR 
{CUR DN3{CUR DN3{CUR DN3{CUR 
+"TAB(CI14G-LEN(STRS(AL))) "SG" 

7196 PRINT" {HOME} {CUR DN3{CUR 
*+{CUR DN} {CUR DN {CUR DN (CUR 
7{CUR DN3{CUR DN3{CUR DN {CUR 
7{CUR DN} CCUR DN{CUR DN3{CUR 
{CUR DN3{CUR DN}{CUR DN3{CUR 


+"TAB(7-LEN(STRS(AS))) "SG" 
750998 RETURN 


DN{ CUR 
DNS{RVS 


DN3{ CUR 
DN{CUR 
DN? {CUR 
DN}{ CUR 
DNF {RVS 


DN3{CUR 
DN?( CUR 
DNI{ CUR 
DN3{CUR 
DNSTRVS 


SOGDG REM KHEKEKKKKHKKKKKKKKKKKKKE 
76106 REM ** LONG & LATITUDE ** 
POE2ZG REM KHEKKKKKKKKKKEKKKKKEKKEN 


76358 PRINT" {HOMES (CUR DN: (CUR 
3{CUR DN {CUR DN}{CUR DN} {CUR 
{CUR DN}C{CUR DN CCUR DN{(CUR 
{CUR DN3{CUR DN}{CUR DN} {CUR 
{CUR DN} {CUR DN} "SPC (249) ASS 
7669 PRINT" {HOME} (CUR DN} {CUR 
*{CUR DNF{(CUR DN {CUR DNFCCUR 
*{CUR DN}{CUR DN3}{CUR DN3{CUR 
s{CUR DNSC{CUR DNS{TCUR DN? (CUR 
{CUR DN {TCUR DN}{CUR 
N3{LT BLU GIGBHSG" 
7676 PRINT" CHOME; {CUR 
7€CUR DN;3{ CUR DN (CUR 
S{CUR DN {CUR DN }{CUR 
+{ CUR DNC{CUR DNC CUR 
{CUR DN {CUR DN}{CUR 
-LEN(STRS(LO)))LO 
76389 PRINT" {HOME} {CUR 
7{CUR DNC CUR DN ITCUR 
3${ CUR DN{CUR DN {CUR DN {CUR 
*+{CUR DNFCCUR DN CCUR DN CCUR 
3{CUR DN3{CUR DN} "SPC (32) ASS 
7699 PRINT" CHOMEF; (CUR DN TCUR 
S3{ CUR DN3{CUR DN{TCUR DNSTCUR 
+{CUR DNICCUR DNS TCUR DN (CUR 


DN3{ CUR 
DN {CUR 
DN}{ CUR 
DN} {CUR 
DNS{RVS 


DN3{ CUR 
DN; (CUR 
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DN; {CUR 
DN{ CUR 
DN{ CUR 
DNS{ CUR 


DN? {CUR 
DN?{ CUR 
DN${(CUR 
DN;{ CUR 


DN {CUR 
DN}{ CUR 
DN>t CUR 
DN;t CUR 


DN 
ON 


DN 
DN 
DN 
DN 
ON 


DN 
DN 
DN 
DN 
ON 


DN 
DN 
DN 
DN 


DN 
DN 
DN 
DN 


DN "SPC (25) "{RVS O 


DN 
DN 
DN 
DN 


ONS "SPC (31 


DN${CUR 
DN3{CUR 
DN{ CUR 
DN?{ CUR 


DN} {CUR 
DN>{ CUR 
DN {CUR 


DN 
DN 
DN 
DN 


DN 
DN 
DN 


s{CUR DN3{CUR DN3{CUR 
7{CUR DNF{CUR DN-{CUR 
NS{LT BLUIBSEAGGS" 

7/906 PRINT" THOME? {CUR 
{CUR DN; CCUR DNFCCUR 
3{CUR DN3{CUR DN {CUR 


*}{CUR DNC CUR DNF{CUR 
*7{CUR DN} {CUR DN3{CUR 


-LEN(STR#(LA)))LA 
77196 PRINT" {HOMES (CUR 
*+{CUR DN {CUR DNF{CUR 
3{CUR DN {TCUR DNI{CUR 
*{CUR DNIICUR DNCTCUR 
S{ CUR DN?CCUR DNFLCUR 
-LEN(STRS#(LA))) "6G" 
7/726 PRINT" {HOME} (CUR 
*{CUR DNIICUR DN{(CUR 
7{ CUR DNS CTCUR DNI{CUR 
{CUR DNFC(CUR DNC CUR 
{CUR DN} {CUR DN}{CUR 
-LEN(STRS#(LO))) "6" 
7390 RETURN 

SOBB 
341d 
SH28 
SH3¢G 
SH4G 


Sd30 
SG6¢G 
8I7D 
Sh38G 


199 
BO 


S119 


3129 
8130 


S146 
SD 


PIIE 
PIG1PG 
PALE 


PALS 
PB24 


JV=PEEK (356329) 
FR=JVAND16 


JV=15- (JVANDI5) 
JS=JV:FB=FR 
JV=68:FR=9 


RETURN 


IFCO< 1 THENCO=8 
IFCO>STHENCO=1 
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DN{CUR DNS{CUR DN 
DN} "SPC (33) "t{RVS O 


DNF {CUR 
DN {CUR 
DN S(T CUR 
DN}{CUR 
DNSTRVS 


DN {CUR 
DN? (CUR 
DNS{CUR 
DN; (CUR 
DN3IRVS 


DNFTCUR 
DN {CUR 
DN {CUR 
DN<{ CUR 
DNC RVS 


REM HEKKKKKKKKKKKKKKKHKE 
REM **¥ JOYSTICK INPUT xX** 
REM KHEKHKKEKKKKKKKKKKKKKE 


DN3{ CUR 
DN{ CUR 
DN3{ CUR 
DN} {CUR 


DN 
DN 
DN 
DN 


ONS "SPC (39 


DN> it CUR 
DN-( CUR 
DN3{ CUR 
DN? {CUR 


DN 
DN 
DN 
DN 


ONS "SPC(S9 


DN?{CUR 
DN¢( CUR 
DN3{(CUR 
DN<( CUR 


DN 
DN 
DN 
DN 


ONS "SPC (31 


IFFB=9STHENTH=TH+t.3: GOSUBI1GSIS 
IFJS=2ZANDOT=GANDAS > 36G9ANDAL=SGTHENI 3 


IFJS=2THENEL=EL—-1: GOSUB129GS 
IF JS=1THENEL=EL+1:GOSUB129099 


IF JS=40ORIS=STHENGOSUBI1S96909 
IFIS=GANDAL *7O6THENGOSUBI159 


REM HEKHKHKKKKKKKHKKKKKKEHEKEKKEHE 
REM ** COMPASS DIRECTIONS X**¥ 
REM HHEKHKKKKHKKKHKEKKKHKKKEKEKE 


9639 IFCO=1THENCOS(3)="7 {LT GRNIJECYN} 
70H 

9849 IFCO=2THENCOS(3)="7 {LT GRNIAICYN 

> J":COB(4)="JLYELIW CREDA (YELIECCYN} J 

9959 IFCO=3THENCOS(4)="7{YELIW CREDIQ{LT 

GRMI@CYELIECCYN} 7": COB(3)="7 J" :COs 

(Sy="7 a 

9868 IFCO=4THENCOS(5)="7 {LT GRNZAICYN 

y J™:COB(4)="JLVYELIW CREDI@ CYELFECCYN} 

9976 IFCO=STHENCOS(5)="7 {LT GRNI IC CYN3 
yn 

9988 IFCO=6THENCOS(5)="7 {LT GRN3ACCYN} 

, 7": COS (4) ="7(YELIW CREDA (YELJECCYN}T 

9G9G IFCO=7THENCOS(4)="7{YELIW{ILT GRN}@{ 

RED}@ {YEL}ECCYN} I": COB(3)="7 J" :COs 

(Sa 7 oe 

919@ IFCO=8THENCO#(3)="7 {LT GRNIMECYN} 
J":COS(4)="7(YELIW CREDIQ CYELIECCYN}T 

9145 RETURN 

FPLSH REM XXHKKXHHKKKHHKHKHKH 

9169 REM ¥* PITCH & ROLL ¥% 

GI7FD. REM HEXHKKHKKKHHKKHK HHH 

91808 IFIS=S8THEN9398¢ 

9198 IFJS=4THEN935¢ 

9298 IFIS=GTHENS49S 

9219 PRINTLEFTS (DS, 11) 

9226 PRINTROS(1) :PRINTROS(2) : PRINTROS (3) 

: PRINTROS (4) : PRINTRO®S(5) : PRINTROS (6) 

9236 PRINTROS(7) 

9249 GOSUBSEE9 

9259 RETURN 

939@ RO#(2)="{CUR RT3{CUR RT}{CUR RTI{CU 


R RTI SCOR MICYN? J"; ROS(9) ="{CUR RTC 
CUR RT3{CUR RTIL{CUR RT37 {WHT F@ CCYNS JF 


731@ ROS(3)="{CUR RT}{CUR RT}{CUR RT}{CU 


R RT¥J7 CORSMICYN:? oY fae 
7326 ROBS(5)="{CUR RTF{CUR RTI {CUR RT3{CU 


R RTF7 {ORFMCICYNS J” 
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F330 ROS(6)="{CUR RTFCCUR RTZL{CUR RTF{CU 
R RTGJ {ORFMCCYN: 7" 

P3499 GOTO921¢ 

9350 ROS(2)="{CUR RTGICUR RTS{CUR RTS{CU 
R RTF/7 {ORIANICYN} 7" 2 ROSB(4)="CLCUR RTC 
CUR RT3 {CUR RT3{CUR RT37 (WHT FQ C{CYN3 J 
9369 ROS(3)="{CUR RTSLICUR RTF {CUR RT Z{CU 
R RTF {ORIANCICYN? J" 

93780 ROS(S)="{CUR RTFL{CUR RTS{CUR RT 3I{CU 
R RT}J CORFANCICYN? fas 

93890 ROS(6)="{CUR RTIL{CUR RTZLICUR RT Z{CU 
R RTF SJLORINTCYNG os 

P39G GOTOS21¢ 

94960 ROB(2)="{CUR RTFCCUR RTFICUR RTFTCU 
R RTF/ Ys 

P4190 ROB(3)="{CUR RTFCCUR RTSLCUR RT ZC{CU 
RR a, Se 

P4206 ROS(9) ="{ CUR RTF{CUR RTSTCUR RTF(CU 
R RTJJICORICCCTWHTIALORFCCCCYNG 7" 

P43G ROS(5)="{CUR RTF{CUR RTFCCUR RT ZCCU 


R RTF7 a 
7449 RO®(6)="{CUR RTF{CUR RT3{CUR RTF{CU 
R RTsJ fi 


945@ GOTOS219 

P5GA REM HHKHKHHKHKHHHHHHH 

9518 REM ¥* SET CLOCK ¥* 

P52G REM HHKKIHKKKHHHKHKHH 

95398 CLS(1)=RIGHTS(TIS, 4) 

954@ IFLEFTS(CL#(1),1)="@"THENCLS(1)=RIG 
HTS( TIS, 3) :GOTO956G 

9559 CLS(2)=LEFTS#(CL$(1),2) :GOTO95S7G 
956@ CLS(2) =LEFT#(CL#(1),1) 

9578 CL#(3)=RIGHTS(TIS, 2) 

958@ CL#(1)=RIGHTS(TIS,5) :CL#(4) =LEFTS#(C 
LS (1), 1) 

959@ PRINT"{CUR UP}{WHT3” 

969@G PRINTLEFTS(D%, 13) LEFTS(L&, 18) CLS(4) 
"!"CLS(2) "3 "CL#(3) 

961@ RETURN 

LDAADD REM XH KK KKH HIKE 

1991G REM *% CHANGE DISPLAY: ¥** 

LDB2G REM HEX KKHKKHKKKK KH HHH HIE 
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1996390 IFTH=>1ANDTH< 2THENTHS=" (RED O77PO/7 
7PXCUR DN3CCUR L3{CUR L3{CUR L3{CUR L3{C 
UR L?{CUR L}{CUR LI{CUR Li4¥tRVS ONS CT YELS 

J C{RVS OFFS{REDIXCICUR DNF {CUR Li{CUR 


Fe fCUR L3<CUR L}{ CUR L3{CUR Li{CUR LCC 
I Liz//e LIfe” 


19646 IFTH= >2ANDTH< STHENTHS#=" (RED}O77P0 
77PCCUR DN CTCUR L3}C{CUR L}{CUR LI{CUR Lif 
CUR L3{CUR L3 {CUR L3{CUR L34{RVS ONGC YEL 
+ J, CRVS OGFFFCREDIXCICUR DN 3CCUR Li3tCU 
R L3{CUR L3 {CUR L} {CUR L3CCUR LI3{CUR L3¢ 
CUR LILI sli 7s 
196356 IFTH=>SANDTH< 4 THENTHS=" {RED} 077707 
7PCCUR DNF {CUR L3{CUR L;3{CUR L3{CUR Lit{C 
UR L3{CUR L}{CUR L} {CUR L34{RVS ON} {YELL} 
J CRVS OFF? {CREDSXC( CUR DNF CCUR Lest CUR 
LS{CUR L3{CUR L3 {CUR L3{CUR L3{CUR LIC 
URE ILI 72 Ls ss? 
19669 IFTH=74ANDTH< STHENTHS="{RED}O77P0O7 
7ZPCCUR DNF CCUR LiC{CUR L3{CUR Lif{CUR Lit{C 
UR L3{CUR L}{CUR L3{CUR L34{RVS ON} {YEL} 
J {RVS OFF SCREDSX{( CUR DNICCUR LF{CUR 
L>{CUR L3{CUR L}{CUR L3{CUR L3{CUR Li{C 
DR Teele Ls ys 
19676 IFTH=>SANDTH< 6THENTHS=" {RED} O77P O07 
7ZPCCUR DN {CUR L3 {CUR L3{CUR L{CUR Lit{C 
UR L3{CUR L3{CUR L3{CUR L}4{RVS ONC YEL} 
JIRVS OFF CREDIXC(CUR DNF CCUR L{CUR 
Ls{CUR L3{CUR L3{CUR L3{CUR L3{CUR Lit{C 


YE a iy Sa Ger a7 Site fae 
886 IFTH< 1 THENTHS="{RED}O077PO77P{CUR D 


N}<€CUR L}¥¢CUR L}3{CUR L3{CUR L3C{CUR L3{CU 
R L3{€{CUR L3{CUR L34{RVS ON} LYEL37 CR 


VS OFF} CRED} X{CUR DN} {CUR LI {CUR Li{CUR 
LS{CUR L3{CUR L3{CUR L3{CUR L3L{CUR L3L// 


19699 IFTH>STHENTH=5 


196995 IFTH<STHENTH=9 
1G1969G PRINTLEFTS(DS$, 15) SPC (17) THS 


19116 IFTH=>1ANDTHS 2THENPOKESS 296, 3 
19120 IFTH=>2ANDTH< STHENPOKES4296, 6 


1961398 IFTH=>3ANDTH< 4THENPOKES4S296,°7 
1919496 IFTH=>4ANDTH< STHENPOKES4296,12 
1G1590 IFTH=>SANDTH<S 6THENPOKESS296, 15 
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119069 
1296969 
12619 
129626 
12978 


126386 
12696 


RETURN 

REM HHKKKEKKHKEKKEKE 

REM *#* ELEVATOR ** 

REM KKEEKKKKKKKKKKE 

IFEL< 1 THENEL=1 

IFEL >S3THENEL=3 
IFEL=1THENELS$(1)="{RVS ON CYEL? CC" 


sELS(2)="{RVS ONS CTYEL3 . 


12196 


"SELS(3)="{RVS ONGC YELS 


IF EL=2THENEL#(1)="{RVS ON} {YELL} 
"SELSB(2)="{RVS 


ONS {YEL}CeC" 


12116 


ITFEL=STHENELS$(2)="{RVS ONGC YEL?3 ss 


SELS(3)="{RVS ON TYELICE" 


12129 


PRINTLEFTS(D$,15) "€CUR RTF"ELSB(1)" 


{CUR DN}{CUR L} {CUR LI "ELSB(2)"{ CUR DNC 


UR 
1213¢ 
13988 
13912 
13822 
FF" 

13952 


Ls {CUR Lo ELS (3) 


RETURN 

REM ** TAKE OFF *# 
AL=1969:;RU=9:0T=1°:EL=2: GOSUBI129D9DS 
PRINT" {HOMES {CUR RT3{CUR RTSTAKE QO 


PRINT" {HOME} "5 ;-FORA=1TOS: PRINT" {RV 


S ON{ BLU} 


13969 


13979 
14996 


14619 
14929 


1490309 
14964G 


149939 


it 
9 


FORAA=1TO266: NEXT: NEXT 

RETURN 

REM ** TURNING ** 

IFTH< 1 THENRETURN 
IFBR=1ANDAL=9THENRETURN 
IFAL=9THENRETURN 

IFMO=1THENIA9O7S 
IFIS=4THENDI=DI+tTH: IFDI+19GTHENCO=C 


O-1°:DI=6: GOSUB1659 


1499664 


IFIS=STHENDI=DI+tTH: IFDISIGBTHENCO=C 


O+1:DI=6: GOSUB165¢9 


1499072 


149975 
14998¢ 


GOSUB?159 


IFMO< 1 THENRETURN 
IFIS=4ANDLEN (TUS) >OTHENTUS=TUS+"{C 


UR RT}":GOTO014139¢ 


14699 
149199 
14119 


IFIS=4THENR=R+1 
IFJS=8THENR=R-1 
IFR<=STHENR=9: TUS=TUS+"{ CUR L3":31F 


LEN (TUS) =11THENTUS=TUS+"{CUR RT3" 


14126 


IFR>1STHENR=14 
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19139 
25GBGH 
2OG1G 
2IEGB2G 


29925 


RETURN 

REM KKEEKHKKHHKHEKEKKKKKKKEKHKKE 
REM * ALTITUDE TNO LOW * 
REM KHEEKKHKKKHKKEKKEKKKKKKEKE 


FSSLEFTS(P$,4) : IFF$="GULF "ORFS="AT 


LA" THEN21966 


LIGBS3B 
26848 
6) +2 

29bS859 


L2GEGB6G 
LIB? SA 


2IG8S 
LOBOS 


29196 
28118 


2O129 
29125 


26139 


{RVS ON3>) 


261490 
CRVS 


2OG15¢G 
CRVS 


2G169 


{RVS ON}D 


298176 


VS ON?> 


26180 


S ON}? 


2G1968 


VS ON}? 


+ 
2628S 


GOSUB9599:M0=MO+r1 


IFMO=1THENZX=AL: KL=9:R=INT (RND(1) ¥ 


IFMO=2ANDAL >Z2XTHENKL=KL+1 
IFMO=S3ANDAL >2ZXTHENKL=KLt1 
IFMO=4ANDAL >ZXTHENKL=KL+t+1 
IFMO=SANDAL >2Z2XTHENKL=KL+41 
IFMO=6ANDAL > ZXTHENKL=KL+1 
TFMO=7ANDAL > ZX THENKL=KL#t 1 
IFMO=SANDAL >ZXTHENKL=KL+41 


IFMG=9ANDAL >ZXTHENKL=KL #1 
IFMO=2THENMO$S(1)="{RVS ON}{ BLK} 
IFMO=2THENMOS (3) ="{WHT} 
_{BRNIC{RVS OFF} 
IFMO=3THENMOS (4) =" {WHT} 
ON}> _{BRN}{RVS OFF} 
IFMO=4THENMOS (5) ="{WHT 3 
ON}? _{BRNIC(RVS OFF} 
TFMO=STHENMOS (6) ="{ WHT} 
_{BRN}CRVS OFF3 
IFMO=6THENMOS (7) ="{WHT3 
_€BRNICRVS OFF} 
IF MO=7 THENMOS (8) ="{WHT3 
_{€BRN}CRVS OFF} 


IFMO=STHENMOS (9) =" (WHT > 


PRINT" CHOMEs"; > FQRA=1TOKLt1:PRINT" 


C{RVS ON} CT BLK? 


"3 :NEXT 
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{RV 


_{RVS OFF} (BRN 


2GIBDS 


3 
L2Id39G9 


298510 
28519 


2GALH 


PRINTTUS 5 : FORA=1TO9?-KL:PRINTTAB(R) 


PRINTMOS (A) § 

NEXT 

PRINT 5 
ITFMO=SANDKL=7ORMO=S9ANDLEN (TUS) >S50R 


MO=9SANDROSTHENZ 1696 


263525 
2II3G 
29549 
29698 
21 8G6D 
219616 
21628 


L1LG3G 
21840 


ITFMO=STHENSSS9SG 
IFR?>SOQRLEN (TUS) >STHEN2Z1999 

ZA=AL 

RETURN 

REM XHKKK KK KKK EHH HEE HE 

REM ** PASSED MOUNTAIN ** 

REM KXKKKKEKKEKEEKKKKEREKEEE 

MO=G > KL=9: Z2x=0: TUS="" 

PRINT" CHOME3"5 ;FORA=1TO?: PRINT" {RV 


S ON:¢{ BLU? 


2196368 


21866 
21676 


3BGIS 
3GG1G 


S3GG2LDS 
39825 


S3GG3G 


"5 «= MEXT 
PRINT" {RVS ON} CRED? 


GOSUB496 
GOTO29G696 


REM KEEKKKEKKKHKKKE 

REM ** LANDING ** 

REM KHEKKEKKKKKHKE 
MO=9:KL=6: ZX=G: TUS="" 
IFLEFT$S(P%,4)="GULF "ORLEFTS(PS, 4) = 


"ATLA" THENWA=1 : GOTO499a9 


S3GG31 


PRINT" CHOME? "5; ;>FORA=1TOS: PRINTRWS ( 


AS: NEXT 


SOGGBS3S 
SGGAG 
3GAS5DG 
3GGBASG 
3887 B 
SIB?S 


AL=98: JS=9: GOSUB915¢ 
IFUC<K 71 THENSSS9G 

IF BR=1THENAS=AS-24 

IFAS< 1 THEN3S 1996 

RU=RUtINT (AS/39) 

PRINT" CHOMEs "SPC (18) LN: FORA=17T049 


G-AS: NEXT PRINT" {HOMES "SPC (18)LNS$(1) 


SAG3H 
SGABID 


SOGP 1 


IFRU>669THENSFSIGS 
GETAS 
IFAS="B" ANDBR=1 THENBR=9:POKE1782,3 


7:POKES6954, 8: GOTO3G119 


QOGP2 


IFAS="B”" ANDBR=S8THENBR=1:POKE1782,8 


1°: POKES69549, 2 


SG11G 


IFAS > 1LOSANDEL=S3THENFSSSSS 
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39126 GOSUB?YSHSG: GOSUBY6956 

39260 GOTA3Z9GSE 

3196969 REM #* SAFE LANDING ** 

S1I9G1 POKES4296, 6: POKES4S278,9:POKES42?77, 
@:PQKES4276,9: POKES9273,9 

Si9G2 POKES4263, 6: POKES4234,9:POKES423s35, 


Gi POKES4289, 0 
319198 PRINT” {HOME3}"3 :FORA=1TO19:PRINT" 


>NEXT 

311696 PRINT"{HOME} {WHT} YOU HAVE LANDED I 
N "3PS 

31165 PRINT"ENGINES HAVE BEEN TURNED OFF 
ovo’ 2RU=G6: TH=9G: OT=6: GOSUBIGSGGS: GOSUBY SIG 
S1197 IFPS$="NEW YORK" THEN3S7669 

31119G FORA=1TOS: IF DS (A) =PSTHENS 29696 
S11296 NEXT 

31130 PRINT"{LT GRNSCTHOMES (CUR DNS{CUR D 
N3{CUR DN3I AM SORRY, BUT THERE IS NO SC 
IENTIST": PRINT"WAITING HERE.." 

31146 GOSUBSS999 

31150 PRINT” CHOME3 "5 : FORA=1TO9: PRINTRWS ( 
Ads :>NEXT 

21168 GOTO431¢ 

329090 REM #% FOUND BUSINESS MAN ** 
3280198 PRINT" {HOME} (CUR DN?{CUR DN?<tCUR D 
N3€LT GRNFJA SCIENTIST RUSHES OVER TQ YOU 
R PLANE" 

3246290 PRINT"WITH A BRIEFCASE AND JUMPS I 
N.” 

329039 PRINT"’GET ME TO NEW YORK QUICKLY’ 


HE SAYS OR" 
“2999 PRINT"I’LL BE LATE" 


3296G BM=BM+1:DH(A)="" 

32198 GOTO3S1149 

35898 REM ** TAKE OFF ONCE LANDED ** 
3590208 GETAS: GOSUB9596: IFAS="" THENS5929 
35925 POKES4276, @:POKE54283,9 

35938 POKES4296, 9: POKES4278, 249: POKES427 
7,9:POKE54276, 1292 POKE54273, 37 

35948 POKES4284, 9: POKES4285, 249: POKES428 
3,17:POKE54289,12 

35959 RETURN 

37899 REM **% NEW YORK %%* 
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379G1G 


IFBM?>=1THENS3999 


379826 PRINT" CHOMES{CUR DN 3{CUR DN TCUR D 


NSC VYELZ}YOQU HAVE NO PASSENGERS. THE PRESI 

DENT IS" 

378938 PRINT"DISAPPOINTED WITH YOU...." 

37949 GOTO3114¢ 

38998 REMX*XLAND SCIENTIST IN NEW YORK*¥* 

38G1G IFBM> 1 THENSCS="SCIENTISTS"” 

38929 IFBM=1THENSCS="SCIENTIST" 

38930 PRINT" {HOME} {CUR DN3{CUR DN}{CUR D 

NITHE PRESIDENT GREETS THE "SCS".”" 

389649 NY=NY+BM 

389350 IFNY=STHENS996¢ 

38960 PRINT"THE PRESIDENT THEN LOOKS AT 

YOU, WITH A WORRIED LOOK.WHERE ARE THE": 

38979 PRINT" OTHERS. GO AND FIND THEM 

NOW" 

38989 BM=6:GOTO31149¢ 

39949OG REM ** MISSION COMPLETE ** 

39919 PRINT" CHOME3} {CUR DN} {CUR DN3{CUR D 

N3}<CUR DN} THE PRESIDENT IS VERY HAPPY WI 

TH YOU.” 

39926 PRINT"HE THEN TELLS YOU THIS WAS QO 

NLY A DRILL BUT ALL THE SAME HE IS STILL 

399030 PRINT"VERY PLEASED WITH YOU. WELL 

DONE!!" 

3°9490 END 

ADAIDPGD REM HKEKKHKKHKKHKK 

49619 REM ** CRASH ** 

AGH2G REM HKKHKKHKKHKHKH 

496360 PRINT" CHOME}"; : FORA=1TO9: PRINT" 
"5 9 

NEXT 

49940 IFAL=GANDUC=96THENPRINT" (HOME 3 {WHT 3 

YOUR UNDERCARRIAGE WAS UP!!":GOTO42996 

496590 IFAL=GANDOT=GANDAS > 1 SGANDEL< >3THEN 

4199G 

46966 IFFUCLISSSTHENPRINT" {HOME} YOU HAVE 

EXHAUSTED YOUR FUEL TANKS...":GOTO942699 


49G7G IFAS>1IGGANDEL=3ANDOT=1THENPRINT"{H 
OMESYOU WENT NOSE FIRST INTO THE RUNWAY! 
("+ GOTO429906 


499390 IFRU>6969THENPRINT" {HOME} YOU RAN OU 
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T QF RUNWAY AND HIT ANUTHER PLANE": GOT 
042996 

499099 IFMO=9THENPRINT"CHOMESYOU HIT THE 
MOUNTAIN. THE PRESIDENT WILLBE MAD": GOTO 
420959 

4990190 IFCR=1THENPRINT"{HOMESYQU HAVED ST 
ALLED THE PLANE AND CRASHED" 

4961196 IFCR=1THENPRINT"DUE TO LACK OF SPE 
ED": GOTO429096 

491296 IFWA=1THENPRINT" {HOME} (CYN3YOQU LAN 
DED IN THE "FPS 

991390 IFWA=1THENPRINT"YOUR PLANE IS SINK 
ING. .": GOTO42996 

49199 TFUC=1ANDAL > 269THENPRINT" {HOME} YOU 
R UNDERCARRIAGE LAY ON THE TOP OF A " 
469150 IFUC=1ANDAL >2966THENPRINT "MOUNTAIN 
BECAUSE YOU FORGOT TO RAISE IT”: GOTO4296 
S 

919996 PRINT" {HOME} YOUR PLANE HAS LANDED 


ON IT’S BACK BECAUSE YOU HAD THE NO 
SE UP 

941916 PRINT"AND YOU WEREN’T GOING FAST E 
NOUGH TO TAKE OFF..." 


42989 REM *¥¥*% CRASH END *%* 

42965 POKES4283,9:POKE54284, 9: POKE54285, 
@:POKE5428¢,9 

42618 PRINT"{CWHT}YOU HAVE FAILED, AND A 

NUCLEAR BOMB IS ON IT’S WAY" 

42929 FORA=15TO@STEP-1!: POKE54276, 129!:POK 
E54273,17:POKE54296, A! POKES4276,9 

42938 FORAA=1T019: NEXT: NEXT 

42199 POKE5S4296, G9: POKE54276,9:POKES4277, 
@:POKE5S4278, 6: POKE5S4273,9 

421198 END 

SOIIS REM KKK HK KKH HH HHH HK KH 


294190 REM **¥ CURRENT POSITION **¥ 
VIIGBLG REM KEKKHKKHKKKKKHKKKEKKKEKER 


I1IGGG xX=LO. Y=LA 
S1@1G IFX>=GANDX<=STHENS2996 


DZIG29 IFX>=G6ANDX< =9 THENS 3999 
J1G3G IFX>=1GANDX< =15THENS4999 
D1G4G IFX>=16ANDX< H=19THENSS99S 


J1GS5G IFK>=2BANDX< =25THENS699G 
3J1G469G IFX>=26ANDX%< =2PTHENS7IGS 
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J1OG7H 
J143G 
31996 
JI119¢6 
31116 
JL112d 
V1296 
IL2GGS 
I2H10G 
I2G2LEG 
I2G3G 
I2G49 
ORNIA" 
I2ZGSG 
I2G869 
I3GGS 
I3G1PG 
ISG2G 
ISG3G 
339645 


339308 
I4IGGS 
J4G1g 
T4929 
VI4IG3S 


349495 
24983568 


I496G 
TIUGAS 
IUGB1IA 
IIL 


IIGBIEG 
BIBI 
JIGS 


SIGOPS 
JIG? H 


36956 
IO691G 
2OG29 
VIOGBSH 


IF K2=S3GANDX< =S35STHENSSO9G 

IF X >= S6ANDXK< HSPTHENSPSGO 

IF X>=49ANDX< =45THEN6GS9GG 
IFRP=F6ANDAS H=49EPTHENG1I19G9GS 

IF > =SGANDXK< =SSTHENG29GS 

IF XK > =S6ANDX<“L HS9PTHENS3I9D 

RETURN 

REM ** BETWEEN @ AND 3S *¥ 

IF Y >=GANDY< =STHENPS="WASHINGTON" 
IFY >=6ANDY<=19THENPS=" OREGON" 

IFY >=1LIANDY< =25THENPS="CALIFORNIA" 
IFY >=26ANDY<=SS5STHENPS="LOWER CALIF 


IFY >=S36ANDY< =4S5THENPS="GULF OF CAL 


GOTOS1 2966 

REM ** BETWEEN 6 AND 9 #* 

IF Y >=GANDY<=190THENPS=" IDAHO" 

IFY S=1L1ANDY< =2GTHENPS="NEVADA" 

IFY >=2Z1LANDY< =SETHENPS="ARIZONA" 
IFY >S=SLANDY<* =4STHENPS="GULF OF CAL 


GOTOS1299¢0 

REM ** BETWEEN 190 AND 15 X* 

IFY >=GANDY << =STHENPS= "MONTANA" 

IFY >=6ANDY<S=196THENPS="WYOMING" 
IFY>S=11LANDY< =26THENPS="UTAH" 
IFY>=2Z1LANDYS=H=SSTHENPS="NEW MEXICO” 
IFY >=36ANDY<*=4S5THENPS="GULF OF CAL 


GOTO0S512996 

REM ** BETWEEN 16 AND 19 

IFY >=GANDY“=STHENPS="NORTH DAKOTA" 
IFY >=6ANDY*=19THENPS="SOUTH DAKOTA 


IFYS=1LIANDY< =29THENPS="COLQRADO" 
IFY >=21ANDY< =25THENPS=" OKLAHOMA” 
IFY F=26ANDY< HSSTHENPS=" TEXAS" 
IFY >=S36ANDY< =S4STHENPS="MEXICO” 
GOTO5S1266 

REM ** BETWEEN 290 AND 25 ** 

IF Y >=SANDY< =STHENPS="MINNESOTA” 
IFY >=6ANDY<=1GTHENPS=" IOWA" 
IFY>S=1LIANDY<S=1LSOTHENPS="NEBRASKA"” 
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IFY >=16ANDY<=26THENPS="KANSAS" 

IFY }=2Z1 ANDY < =39THENPS=" OKLAHOMA" 
IFY>=31LANDY<=49THENPS="TEXAS" 
IFY>=41 ANDY<=45THENPS="GULF OF MEX 


GOTOS1299 

REM **%* BETWEEN 26 AND 29 

IFY >=GANDY< =STHENPS="WISCONSIN" 

IFY >=6ANDY<=1GTHENPS="ILLINOIS" 
IFY S=11ANDY<=15THENPS="MISSOURI" 
IFY >=146ANDY<=25THENPS="ARKANSAS" 
IFY>=26ANDY<=45THENPS="GULF OF MEX 


GOTDS1206 

REM ** BETWEEN 30 AND 35 ** 

IF Y >=SANDY<=STHENPS="MICHIGAN” 

IFY >=6ANDY<=15THENPS="ILLINOTS" 
IFY >=16ANDY< =25THENPS=" TENNESSEE" 
IFY >=26ANDY<=4STHENPS="GULF OF MEX 


IFY S=41 ANDY<=45THENPS="GULF OF MEX 


GOTOS5129¢9 

REM ** BETWEEN 36 AND 39 ** 

IFY >=GANDY< =STHENPS#="CANADA" 

IFY >=G6ANDY<S=15THENPS=" INDIANA" 

IFY >=16ANDY< =26THENPS= "KENTUCKY" 
IFY>=2Z1ANDY<=25THENPS=" TENNESSEE" 
IFY >=26ANDY<=S39ATHENPS="GULF OF MEX 


IFYS=S31ANDY<=49OTHENPS="MISSISSIPPI 


IFY 2=41 ANDY<=4S5THENPS="GULF OF MEX 


GOTOS12966 

REM **%* BETWEEN 498 AND 45 ** 

IFY >=GANDY< =STHENPS#="CANADA" 

IF Y >=6ANDY< =15THENPS="QHIO" 

IFY S=16ANDY< =26THENPS="WEST VIRGIN 


IFY S=214NDY<=25THENPS="CAROLINA" 
IFFY >=26ANDY< =S396THENPS="SOUTH CAROL 


IFY >=S1LANDY<=4S9THENPS="ALABAMA” 
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69576 
LCG 
69836 


619900 
61619 


61926 


619398 


61946 
619568 


INA" 
616869 
INA" 
61976 


1630 
1999 


625008 
62610 
620209 
An" 

620636 


63996 
639168 


63929 
Ah" 


63930 


READY. 


IFY S=41 ANDY<=4S5THENPS="GULF OF MEX 


GOTOS1296 

REM #*+* BETWEEN 46 AND 49° X** 

LTFY >=SGANDY<=STHENPS="NEW YORK" 

IFY >=6ANDY<=19THENPS="PENNSYLVANTIA 


IFY>=11ANDY<=1 5 THENPS="MARYLAND" 
IFY>7=16ANDY<=26THENPS="VIRGINIA" 
IFY S=21 ANDY<=25THENPS="NORTH CAROL 


IFY >=26ANDY<=SOTHENPS="SOUTH CAROL 


IFY F=S1LANDY< =SSTHENPS="GEQRGIA" 


IF Y >=S36ANDY<=4S THENPS="FLORIDA" 
GOTOQS1296 


REM ** BETWEEN SG AND S35 ** 
IF Y >=GANDY <¢ =STHENPS="VERMONT " 
IF Y >=GANDY< =4STHENPS="ATLANTIC OCE 


GOTQS512966 

REM ** BETWEEN 354 AND SP? X** 

IFY >=GANDY<=STHENPS="MAINE" 

IF Y 27=S6ANDY<=45THENPS="ATLANTIC OCE 


GOTOS51269 
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TOWERS OF 
NEPTUNE 


This is a variation on that old favorites, TOWERS OF 
HANOI . In this puzzle, you have to move’ several 
layers of steel, of different sizes, off one peg and 
onto another. This may seem simple, but of course, there 
are rules you have to follow to achieve the goaL: 


1 —- You must take the top Layer off each peg 


e¢ — You cannot put a Larger Layer on top of a 
smaller one 


3 —- You must move all the Layers from peg number 
one to peg nine 


There are three pegs. One peg at a time will be shown on 
the screen, enlarged, in the center, so you can see 
which layers are on it. The other two pegs will be in 
the background. These background pegs have numbers on 
them, representing the Layers which are on them. 


198 AS(1)="{GRN} {RVS ON 
to Ol =? 
116 AS(2)="{GRN?} {PRVS ON}D 
G2 a. 
129 AS(3)="{GRN} {RVS ON}? 
G3 a, 
136 AS(4)="{GRN} {RVS ON}D? 
G4 (ci 
1496 AS(5)="{GRN} {RVS ON}3> 
a5 mi: 
158 AS(6)="{GRN} {RVS ON}D> 
Bh 28 
1698 AS(7)="{GRN} {RVS ON}D 
Oo? " 
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170 AS(8)="{GRN} tRVS ONG) 

aE) = st 
189 AS(9)="{GRN} {RVS ON}D 

GP oa" 
19@ BS="{RVS ONICRED}2_ (CUR DNS{CUR L3{C 
UR L? {CUR DNSTCUR LitCUR L: {CUR DNit 
CUR L3{CUR L} {CUR DNI{CUR LI {CUR Lj { 
CUR DN} TCUR LiICUR Lz {CUR DN?{ CUR LitC 
UR L} ‘CUR DN}{CUR L}{CUR L} {CUR DNit 
CUR LitCUR L+? (CUR DN{CUR Lit{CUR L? if 
CUR DN3{CUR L3{CUR L}3 {CUR DNF{CUR Li{C 
UR Ls CCUR DN}TCUR LCT CUR Lz CCUR DNF 
CUR L3{CUR L3} a 
260 BS=BSt+"( CUR DNFL{CUR L3tCCUR L3 {CUR 


DN? {CUR L}{CUR Ls {CUR DN} {CUR L3CCUR L 
‘CUR DN3{CUR L3{CUR L} {CUR DNC CUR 


bet CUR ia . 
2196 C$%="{RVS ON} {RED}> 


Zilli PRINT"{CLRITCUR DN} {CUR DNF CUR DING" 


SPC (19) BS 
212 PRINTCS 


226 PRINT"{HOME}{CUR DN3{CUR DN3}{CUR DN3 
{CUR DN}":POKES3281,9 

239 LS="{PUR}V M{CUR DN3{CUR L3{CUR L3{C 

UR L}4 ¥{(CUR DN}{CUR L}{CUR L}{CUR Li4 x¥ 
{CUR DN3{CUR L3{CUR L3{CUR L}4 X¥{CUR DN3 
{CUR L3{CUR L?{CUR L3}4 X¥{CUR DN}<{CUR Lif 
CUR L}{CUR L}4 ¥{CUR DN3{CUR L?{CUR L3{C 

UR L34 ¥{CUR DN}{CUR L}{CUR L}{CUR L34 *¥ 
{CUR DN}{CUR L3{CUR L3{CUR L34 X{CUR DN} 
(CUR L}{CUR L}{CUR L}<{CUR L?A7777/1" 

SOG PRINTAS(1): PRINT: PRINTAS(2) : PRINT: PR 
INTAS (3) : PRINT: PRINTAS(4) : PRINT: PRINTAS ( 
S) PRINT: PRINTAS(6) !PRINT:PRINTAS(7) 

519 PRINT: PRINTAS(8) : PRINT: PRINTAS (9) 
69@ PEG=1:A=1: B=1:C=1:D=1:E=1:F=1:G=1:H= 
1:1=1 

619 PRINT"{CLR}LEVEL GF DIFFICULTY (1 TO 
9)" 

611 INPUTL: IFL<¢< 10RL>9THEN61G 

QiZ ALS="987654321":ALS=LEFTS(A1S,L) :aS= 
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626 DS="CHOMES (CUR 


UR 
UR 


UR 
UR 


DN} (CUR 
DNS {CUR 
DN; TCUR 
DN {CUR 


DN ZT CUR 
DN{CUR 
DNSTCUR 
DNFI CUR 


DN?{CUR 
DNtCUR 
DN(T CUR 
DN; (CUR 
DNFi CUR 


DN (CUR 
DN} {CUR 
DN CUR 
DN( CUR 
DN? {CUR 


DNStC 
DN 

DN;ic 
DN tC 
DNS{C 


LR DNS” 

629 AL=22°:A2=22:AS5=22:6G0TO?79S 

768 IFFEG=1THEN/YSY 

78S PRINT"{CHOME (CUR DN CYEL3SPEG 1" 

7946 PRINT"{HOME}; (CUR DNC CUR DN?CTCUR DN; 
(CUR DN3{CUR RT3"L& 

7iG PRINT" CHOME3 {CUR DNICCUR DN;StCCUR DN? 
{CUR RTFCTCUR RTFLICYNS” 

726 FORT=STOLSTEP-1:PRINT"C{CCUR RTS{CUR R 
hoe °MiDS CALS. 1, 1) SNEXT 

ee IFFEG=2THENSOS 


fw) 


732 IFPEG=1THENS&69 
7533 IFPEG=3THENSS59 
239 PRINT" CHOME} (CUR DNC YEL3"SFC(38) "PEG 
736 PRINT"CHOMES {CUR DNC CUR DNF{CUR DN} 


{CUR DN}"SPC(7)LS 

757 PRINT" {HOME} (CUR DN3{CUR DN3{CUR DN3 
Seb" FORT=9TOLSTEP-1:PRINTSPC (8) | MIDS (AZ 
»T,1)2NEXT 

866 IFPEG=3THENSS@ 

895 PRINT" {HOME}{CUR DN}{YEL3"SPC(34) "PE 
esp 

896 PRINT"{HOME}{CUR DN}{CUR DN}{CUR DN3 
{CUR DN}"SPC(35)LS 

867 PRINT" {HOME3{CUR DN3{CUR DN3{CUR DN3 
{CYN}” 

819 FORT=9TOLSTEP-1:PRINTSPC (36) jMIDS(AS 
6, T,1)2NEXT 

859 RETURN 


PdG REM K¥*X INPUT *** 
POS FLEOGiA1L=22:2 A2=22: AS=22 


966 PRINT" CHOMEs (CUR 


{CUR 


{CUR 
{CUR 


CCUR 


DNF i CUR 


DN} CUR 
DN>{ CUR 


DN;<t CUR 


DNt CUR 


DN; <CUR 
DN (CUR 


DN+t CUR 
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DN (CUR 
DNF{CUR 
DN?{CUR 
DNF C€CUR 
DN; {CUR 


DN;t CUR 
DNS{CUR 
DNF (CUR 
DN Fi CUR 
DNs" 


DN 
DN > 
DN; 
DIN 3 


P18 PRINT" {GR} INPUT: CWHT} WHICH PEG WOULD 
YOU LIKE TO VIEW?" 

S29 GETPEGS: IFPEGS=""THEN?2S 

P25 PEG=VAL (PEGS) 

P26 IFPEG< 1ORPEG?>3THENSS6G 


S30 IFPEG*< 1ORPEG?3THEN? 19 
249 ITFPEG=1THENI99@ 


950 IFFEG=2THENIS9O9S 

P66 IFPEG=3THEN29OS 

1990 REM PEG 1 

1O6G1 PRINT"{CLRI{CUR DN3{({CUR DN SICUR DN3 
"SPC (19) BS 

1662 PRINTCS 

1910 FORT=1TOLEN(A1S) - 2$=MIDS(A1SG,7T,1)°2 
=VAL (25) 

1911 PRINTLEFTS(D$,A1)A%(2Z2) :A1L=A1-2 

1Gi2 NEAT 

1626 GOTO3986 

15909 REM PEG 2 

ISG1 PRINT"{CLRIL{CUR DN3{CUR DN{CUR DN} 
"SPC (19) BS 

1592 PRINTCS 

15190 FORT=1TOLEN(A2S) : 2S$=MIDS(A2S,T,1)°2 
=VAL (2S) 

1511 PRINTLEFTS (DS, A2) AS(Z) 2: A2Z=A2-2 

1512 NEAT 

1529 GOTO399¢ 

2600 REM PEG 3 

2961 PRINT"{CLRI {CUR DN3{CUR DNI}{CUR DN} 
"SPC (19) BS 

2692 PRINTCS 

2616 FORT=1TOLEN (ASS) : Z2$=MIDS(ASS,1T,1)°2 
=VAL (2%) 

2911 PRINTLEFTS (D#, AS) AB(Z) SAS=A3-2 

2812 NEXT 

3696968 REM 2ND INPUT 

3918 GOSUB/9S 

SG11 IFASS=QSTHENS6OODS 


S3G15 
+{CUR 


7 iT CUR 
3 (CUR 


3{ CUR - 


DNF T CUR 


DN3< CUR 
DN? CUR 


DN? (CUR 


PRINT" CHOME}( CUR 


DN {CUR 
DN?{(CUR 
DN? (CUR 
DN}{CUR 
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DN (CUR 
DNF{ CUR 
DNC CUR 
DN (CUR 
DN{CUR 


DN?:{ CUR 
DNStCUR 
DN} {CUR 
DN {CUR 
DN:" 


DN 
DIN 
DN 
DN 


3928 PRINT"{OR} INPUT: (WHT}DG YOU WANT TO 
VIEW ANOTHER PEG? ” 

3938 GETTS: IFTH<>"Y"ANDTS< >" N" THENS OSG 

3G4G IFTS="7¥"THENISS 
3945 PRINT" {HOME3 {CUR 
3€CUR DN} CUR DN}<{CUR 
3{CUR DN3{CUR DNI(CUR 
>£CUR DNI{CUR DN3 {CUR 
3{CUR DN3{CUR DNIICUR 
3956 PRINT" {OR}INPUT: 
YOU WANT TO MOVE?" 
3G66 GETNS: IFNS=""THENSG49 

2965 N=VAL (NS) 

3966 TFN< 1O0RN>9THENSS45 

397@ IFPEG< >1THENSS73 

3971 FORT=1TOLEN(A1LS) : IFVAL (MIDS(A1S,T, 1 
)) =NTHENFL=1 

3972 NEXT: IFFL=@THENSSSS 

3873 IFPEG< >2THENSS76 

3974 FORT=1TOLEN(A2S) : IFVAL (MIDS(A2$,T, 1 
)) =NTHENFL=1 

3975 NEXT! IFFL=STHEN4SSS 

3976 IFPEG< }2THEN3S@79 
3077 FORT=1TOLEN(A3$) 
)) =NTHENFL=1 


3978 NEXT: IFFL=STHENSSSD 
3679 FL=9: IFPEG=1THENIFVAL (RIGHTS(A1S, 1) 


)< >NTHENFL=2: GOTO49699 
3989 FL=G: IFPEG=2THENIFVAL (RIGHTS (A2S, 1) 
)< >NTHENFL=2: GOTO4699 

3981 FL=6: IFPEG=S3THENIFVAL (RIGHTS (A3S, 1) 
)< >NTHENFL=2: GOTOd99S9 
3939 PRINT" {HOME} (CUR 


DNF {CUR 
DNs tCUR 
DNF {CUR 
DNFC(CUR DNITCUR 
DNS{CUR DN" 

<WHT}WHICH LAYER 


DN 
DN 
DN 
DN 


DNS{CUR 


DNI{CUR 
DNFi CUR 


DG 


© IFVAL (MID#(A3S,7, 1 


DN 


+{ CUR DNICCUR DNF CTCUR 
7T CUR DN} {CUR DNICUR 
+{CUR DNITCUR DNICCUR 
S{CUR DN3ICUR DN {CUR 


DNF (CUR 
DNF{CUR 
DN>{CUR 
DN;{ CUR 
DN {CUR 


DNS{ CUR 
DN?<{ CUR 
DN} {CUR 
DN}{ CUR 
DN>" 


DN 
DN 
DN 


3SO9G PRINT"CORFINPUT: SAS he LAYER"N"¢ 


CUR L} 


SGA 1 
3GP2 


3GPS 
3994 


TQ WHICH PEG? 


IFP=PEGTHENS9S389 


GETPS: IFPS=""THENSSG?P1 
P=VAL (P$) 2 ITFP<10RP?>3THENSS89 


$(A1%$6,1)) THENFL=3: GOTO9SG9SD 
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IFP=1ANDVAL (A1LS) *>G@THENTIFN? VAL (RIGHT 


3995 IFP=2ZANDVAL (A2%) >S@THENIFN>VAL (RIGHT 
$(A2S, 1) ) THENFL=3:GOTOdS99 

3896 IFP=S3ANDVAL (A3%) >STHENIFN>VAL (RIGHT 
$ (ABS, 1)) THENFL=3: GOTO4999 

3997 IFPE=1THENZ=LEN(A1S&) !Z=Z-1!A1%=LEFT 
$$ (ALS, Z) 

3098 IFPE=2THENZ=LEN (A2%) :Z=Z-1!:A2%=LEFT 
$(A2S, Z) 

3899 IFPE=3THENZ=LEN(AS3&) :Z=Z-1:A3$=LEFT 
$ (ABS, Z) 

3198 IFP=1THENA1LS=A1LS+RIGHTS(STR#(N), 1) 
3L1iG@ IFP=Z2THENAZS=AZ$S+RIGHTS(STRS(N), 1) 
3128 IFP=3THENASS=AS$+RIGHTS(STRS(N), 1) 
3i3@ PRINT"{CLR}"!A1=22: A2=22:A3=22:FL=9 
:GOTOS4aS 

4996 REM BLOCK NOT ON PEG 

49@5 FORT=1TO? 

4986 FORTT=1TO29@: NEXT 


4G196 IFFL=STHENPRINT”" CHOMEFLAYER NO#"N"T 
S NOT ON PEG NO#"PEG 


492@ IFFL=2THENPRINT"{HOME3LAYER NO#"N"T 
SN’T ON THE TOP." 


49390 IFFL=STHENPRINT" CHOMES BIGGER LAYER 
ON A SMALLER LAYER NOT NICE" 

4949 FORTT=17T0356: NEXT 

49356 PRINT" CHOME 3 


440469 NEX 
496790 GOTO?8H 
3HOO PRINT"{CHOMES (CUR DNGLYELSPEG 2" 


591G0 PRINT"CHOME} {CUR DNFCCUR DNFTCUR DN 
{CUR DN} CCUR RT}3"LS 


5426 PRINT" CHOMES(CUR DNGCCUR DN {CUR DN 
S{CUR RTSLCUR RTZICYN}" 

59390 FORT=STOQLSTEP-1:PRINT"{CUR RTSCCUR 
RTS "MIDS(A2LS,T, 1) SNEXT 

5449 GATUSHhS 

SEIG PRINT" {HOMES {CUR DN {YEL3 "SPC (34) "P 
EG 2” 

IGS5S PRINT" CHOMES {CUR DNS {CUR DN}{CUR DN 
{CUR DN} "SPC(35)LS 

5969 PRINT"{HOME3 {CUR DN3{ CUR DN3{CUR DM 
+{CYN?:" 
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Bede FORT=9STO1LSTEP-1:PRINTSPC (36) ;MID#S(A 


1) :NEXT 
erke’ GoTosss 


tien PRINT" {CLRILIWHTSCCNGRATULATIONS!!!" 
64616 PRINT:IPRINT:PRINT"{YEL? THAT IS REAL 
LY WELL DONE: .." 


READY. 
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SEA WOLF 


Here, out in the ocean far from Land, you are battling 
for your Life. In control of a convoy ship guarded by 
an escort vessel, you are attempting to sink an’ enemy 
submarine which is somewhere in the waters below you. 


When the program begins, you are asked to enter the size 
of the grid on which you will play. The larger the grid, 
the more room you have to sail to evade the submarine, 
and the more room the submarine has to get away from 


you. In this sample game, I decided on a grid measuring 
eight each side: 
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ENTER SIZE OF GRID (3 TO 20)? 8 


Enter degree of difficulty 
1 - easy 
10 =- very hard? 7 


The ‘degree of difficulty’ controls the accuracy and 
frequency of the submarine's attempts to destroy you. 


You are then asked to place your convoy ship (the Letter 
C)} and your escort vessel (an E) on the grid, as_ the 
computer places its submarine. 


"PLACE CONVOY (TWO NUMBERS 
EACH LESS THAN 9 ) 

¢ 3,2 

PLACE ESCORT (TWO NUMBERS 
EACH LESS THAN 9 ) 

PGK 


I AM PLACING THE SUBMARINE 


The computer then prints a map of the situation: 


Sub condition: 0 
>> Day 1 << 
Shots left 20 
>Convoy at 3 2 Conditions 0 
>Escort at 6 7 Condition: 0 


-— ew enw @ Pe ww & = BS ow Be ere = we w= we Tee eewraeene & & a ew aw ea G ew =a aD 
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9o9e 90 @?e9a@@ 


=aWW &uoan © 
a 


(i: er’ a 


CONVOY AT 3 2 
MOVE IT (Y OR N)? Y 
N, S, E OR W? E 
~>> CONVOY NOW AT 3. 3 


The submarine, the convoy and the escort can each 
sustain three hits before they are destroyed. You have 
only 20 anti-submarine missles. On each move, you can 
change the convoy's position, use its sonar to Look for 
the submarine and fire, then carry out the same’ three 
actions (if you want to) for the escort: 


Sub condition: j 
>> Day i << 
Shots left 19 
>Convoy at 3 3 (Condition: 0 
>Escort at 6 7 Condition: 0 


Bi cence eee 

To “eel Persea 

Gr wate deca ESCORT AT 6 7 

Pen ees MOVE IT (Y OR N)? Y 
Seer ee N, S, E OR W? W 

Caen CR are ->> ESCORT NOW AT 6 6 
2s pie 

ae Ronnie 


Sub conditions: 7 
>> Day i << 
Shots left 19 
>Convoy at 3 3 Condition: 0O 
>Escort at 6 6 Condition: 0 
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=NOW Fo an © 
r 
° 
° 
r) 


The sub iS moving... 
Sub unleashes longerange missilel 
Escort hit 6 6 


Sub condition: 1 
>> Day 2 << 
Shots left 19 
>Convoy at 2 3 #=Condition: QO 
>Escort at 6 6 Condition: 1 


Ogee ae 
1 wae wae es 
6 Sealeen es 
Date ee 
a eee ee 
See ae ee 

2 Kew Gaess< 

Ty gpa vaca 


DO YOU WANT TO FIRE (Y OR N)? Y 
WHICH DIRECTION (N, S, E OR W)? E 
Barrage no. 2 hit sub 


Sub condition: 2 
>> Day 2 << 
Shots left 18 
>Convoy at 2 3 #=(Condition: 0O 
>Escort at 6 6 Condition: 1 
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=—NWMNW & Ua © 
e 
ry 
° 
o 
° 
° 
ry 


ESCORT AT 6 6 
MOVE IT (Y OR N)? N 
DO YOU WANT TO USE 
SONAR ON ESCORT (Y OR N)? Y 


SONAR READING IS 5.099 


Once you've made your move, the computer responds 
moving the submarine and possibly firing at you: 


Sub condition: 2 
>> Day 3 << 
Shots left 17 
>Convoy at 3 3 #;Condition: QO 
>Escort at 6 6 Condition: 1 


mee eewanaeq@gmwaeeeee we eee eoewrmwaeeaergm @&@ @ @ nana ape O&O ea a ae cP oP ae Gy a= a= co 


Ge cso a aes 
‘gare ewe roe ce 
aera rer E. 
D dacaew 

ee ee ee a 
Bo cee Cine es 
ee ee eS 
Le dqreiecavevene’s 


The sub is moving... 
Sub unleashes long-range missile] 
Escort hit 6 6 
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by 


The escort is now in a bad way. One more hit and it will 
go down to the bottom (as its condition is 2, as shown 
above the grid). However, the submarine jis also 
suffering, with a similar condition rating. The program 
continues until either the submarine has been’ destroyed 
(as in our sample run) or both your vessels have been 
sunk: 


Sub conditions: 2 
>> Day 6 << 
Shots left 14 
>Convoy at 5 3 (Condition: 1 
>Escort at 6 6 Condition: 2 


= WW FU AaAN © 
© 
° 
© 
) 
ry 
© 


DO YOU WANT TO FIRE (Y OR N)? Y 
WHICH DIRECTION (N, S, E OR W)? S 
Barrage no. 7 hit sub 


Well done...you have destroyed the sub 


Convoy condition: 1 
Escort condition: 2 


Note that, whatever you do, you should not move directly 
over a submarine. Try it to see what happens if you 
don't mind losing a vessel. Here is the Listing now to 
allow you to take part in this simulated battle of 
submarine combat: 
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16 REM SEAWOLF 

26 GOSUB2516:REM INITIALISE 

36 GOSUB2359: REM PRINT GRID 

46 IFC1< >@6THENGOSUBSIG: REM MOVE CONVOY 
98 IFCC}2ANDEC >2THEN29D 


66 IFSH< 1 THEN2ZSS 
78 IFSC}2THEN3S7@2 


88 GOSUB2359¢ 
99 IFE1< >@THENGOSUBS54:REM MOVE ESCORT 
198 GOSUB2352 

11@ IFCC>2ANDEC >2THEN29@ 

126 IFSH<1THEN299 

139 IFSC>2THEN379 

14@ GOSUB162@:REM CONTROL SUB 

150 FORT=1TO198@:NEXT T 

16@ DA=DAt1 

178 GoTO3e 

186 END 

19D REM XXKHKKHHKHKH HH 

266 REM END OF GAME 

21@ PRINT"------------------------------ 
226 PRINTTAB(6) "THE GAME IS OVER...AS YO 
U HAVE" 

239 PRINTTAB(18) "LOST" 

248 PRINTTAB(6) "YOUR ESCORT AND CONVOY" 
2598 PRINT"------------------------------ 


2690 PRINTTAB(?) "YOU SURVIVED FOR"DA"DAYS 


288 END 

298 REM ** OUT OF SHOTS *¥* 

398 PRINT" ------------------------------ 
318 PRINTTAB(6) "YOU HAVE RUN QUT OF SHOT 


Sarees. 
3206 PRINT" ------------------------------ 


330 PRINT"SUBMARINE CONDITION: "SC 
399 PRINTTAB(4) "CONVOY CONDITION: “CC 
S58 PRINTTAB(4) "ESCORT CONDITION: "EC 
3469 GOTO2S5¢ 
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389 PRINT"WELL DONE...YOU HAVE DESTROYED 
THE SUB" 

398 GOTO34¢g 

ADD REM XXXHXHKKHKKKKKKKHS 

419 REM MOVE CONVOY 

426 PRINT!IPRINT"CONVOGY AT"C13C2 

438 X1=C1:X2=C2 

449 INPUT" MOVE IT (Y OR N)"3AS 

456 IFAS<>"Y"ANDAS< >"N" THEN4S4S 

468 IFAS="N"THEN659 

474 PRINT"N, S, E OR Ww" 

488 INPUTAS 

499 IFAS<>"N"ANDAS< > "S" ANDAS<S > "E" ANDAS< > 
"W" THEN4SSS 

599 IFAS="N"ANDC1=ZTHENSSS 

519 IFAS="S"ANDC1=1 THEN4SS 

S28 IFAS="E"ANDC2=ZTHEN48SS 

539 IFAS="W"ANDC2=1 THEN4SS 

549 A(C1,C2)=BL 

559 IFAS="N"THENCI=Cl1+1 

568 IFAK="S"THENC1=C1i-1 

578 IFAS="E" THENC2=C2+1 

589 IFAS="W" THENC2=C2-1 

S99 IFA(C1,C2)=ESTHENPRINT" YOUR ESCORT I 
S THERE! ":C1=xX1:C2=xX2!GO0TO42g 

68@ IFA(C1,C2)=SUTHENPRINT"YOU MOVED RIG 
HT OVER THE SUBMARINE"! FORT=1TO59@: NEXT 

6@5 IFA(C1,C2)=SUTHENPRINT"IT FIRES UPWA 
RDS! ":FORT=1TO59@: NEXT 

686 IFA(C1,C2) =SUTHENCC=4! 0G=1:C1=6!C2=9 
:RETURN 

618 PRINTTAB(3)"@>> CONVOY NOW AT"C13;C2 

629 FORT=1TOS59@@:NEXT T 

638 A(C1,C2)=CO 

649 GOSUB235@:REM PRINT GRID 

658 PRINT"DO YOU WANT TO USE":PRINT"SONA 

R ON CONVOY (Y OR N)” 

668 INPUTAS 


6798 IFAS >" Y"ANDAS<S > "N" THEN669 
6439 IFAS="N" THENZ39 
69°99 PRINT: PRINT"SONAR READING IS"; 
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7/66 NA=INT (19GOGXSAR( (C1 -SlLd#(C1-S1)+(C2- 
S2)¥(C2-S2)))/1996 

716 PRINTNA 

726 FOR T=1TO1669:NEXT T 

739 GOSUB2356: REM PRINT GRID 

746 PRINT: PRINT"DO YOU WANT TO FIRE (Y QO 
RN)" 

798 INPUTAS 

769 ITFAS<K>"Y"ANDASK > "N" THEN?ZSS 

778 IFAS="N" THENRETURN 

788 PRINT"WHICH DIRECTION (N, S, E OR W) 


799 INPUTAS 

89G IFAS<>"N"ANDAS< > "S"ANDAS< > "E" ANDASS > 
"W" THEN?Z9S 

81@ SH=SH-1 

S20 IFAS< >"N"ANDAS< > "S" THENS69 

838 IFS2< >C2THENSS@ 

846 IFAS="S"ANDS1<C1ORAS="N"ANDS1 >C1 THEN 
SIG 

859 PRINTTAB(5S) "ASW WAS UNSUCCESSFUL": GO 
TO91G 

86@ IFS1<>C1THENS5S 

87G IFAS="W" ANDS2<C20RA$="E"ANDS2>C2THEN 
89g 

S86 GOTOSSS 

S99 PRINT"BARRAGE NO. "28-SH"HIT SUB" 

996 SC=SCt1 

919 FORT=1TO599* NEXTT 

929 GOSUB1499 

939 RETURN 

DAB REMKKXKK HK HHH H KKK HK HEH 

959 REM MOVE ESCORT 

968 PRINT: PRINT"ESCORT AT"E13E2 

97@ X1=E1:X2=E2 

98@ INPUT" MOVE IT (Y OR N)"3A% 

999 IFAS<>"Y"ANDAS< >"N" THENSSS 

1998 IFAS="N"THEN1199 

1919 PRINT"N, S, E OR WwW" 

1928 INPUTAS 

1G3G IFAS<>"N"ANDAS< >"S"ANDAS< > "E" ANDAS< 
>"W" THENIL G29 

1949 IFAS="N"ANDE1=ZTHEN1I92¢ 

195G IFAS="S"ANDE1=1 THENI S29 
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1960 


1979 
1986 


1699 
11966 


1116 
11296 


1136 


IFAS="E"ANDE2=ZTHENIS29 


IFAS="W"ANDE2=1 THEN192@ 
A(E1,E2)=BL 


IFAS="N" THENEL=E1+1 
IFAS="S" THENE1=E1-1 
IFAS="E”" THENE2=E2+1 
IFAS="W" THENE2=E2-1 
ITFA(E1,E2) =CQOTHENPRINT" YOUR CONVOY 


IS THERE! ":61=XK1:E2=X2: GOTO96G 


1149 


IFA(E1,E2)=SUTHENPRINT" YOU MOVED RI 


GHT OVER THE SUB! "!FORT=1TOSOS:NEXTT 


1145 


IFA(E1,E2)=SUTHENPRINT"IT BLASTS UP 


WARDS! "2 FORT=1TOS9GO: NEXT 


1146 


IFA(E1,E2) =SUTHENEC=4: OG=1°E1=9:E2= 


@;> RETURN 


11356 
1169 
1179 
1189 
11°9 


AR ON 


1266 
1216 


12269 
12396 


12496 


PRINTTAB(3)"7>> ESCORT NOW AT"E1LjSE2 
FORT=1TOS@@: NEXT T 

A(E1,E2)=ES 

GOSUB2359:REM PRINT GRID 

PRINT"DO YOU WANT TO USE": PRINT"SON 
ESCORT(Y OR N)" 

INPUTAS 


IFAS< >" VY" ANDAS< >" NY THENI 296 


IFAS="N" THEN1IL279 
PRINT? PRINT"SONAR READING I5"5 
NA=INT (1969GXSQR((E1L-SLIIKX(EL-S1l)+(E2 


“S2)*# (E2-S2)))/1998 


1256 
1266 


PRINTNA 
FORT=1TO19968:NEKT T 


1276 GOSUB23590: REM PRINT GRID 


1289 


OR N)" 


129¢ 
1369 


13190 
1326 
» ae 

1330 
13496 


PRINT: PRINT"DO YOU WANT TO FIRE (¥ 
INPUTAS 

IFAS< >" Y"ANDAS<S >"N" THENI2996 
IFAS="N" THENRETURN 

PRINT"WHICH DIRECTION (N, S, E OR W 


INPUTAS 
IFAS< >"N"ANDAS<S F"S"ANDASS "EN ANDAS< 


>"W" THEN1 339 


1356 
1369 
1376 


SH=SH-1 
IFAS< >"N"ANDASS 2 "S" THEN1I4909 
IFS2< PE2THEN1 S99 
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138@ IFAS="S"ANDS1<ELORAS="N"ANDS1 >E1 THE 
N143¢ 

1399 PRINTTAB(5) "ASW WAS UNSUCCESSFUL":G 
oTG145¢ 

149 IFS1< SEL THEN139¢ 

1419 IFAS="W"ANDS2¢6E20RA$="E"ANDS2>E2THE 
N143¢ 

1426 GOTO139¢ 

1438 PRINT"BARRAGE NO"29-SH"HI SUBMARINE 


1499498 SC=SC+1 

14590 FORT=1TOSS@@: NEXT T 

19696 GOSUB149¢9 

14790 RETURN 

L4SH REMEKKHKHKKHKKKHKKHKEK HEHEHE E 


14990 REM MOVE SUB AFTER BEING HIT 
1596 Y1=S1:Y2=S2 


1519 A(S1,S2)=BL 

152@ S1i=S1+INT(RND(1)¥2) -INT(RND(1) ¥2) 
1539 S2=S2+INT (RND(1)¥2) -INT(RND(1) ¥2) 
154@ IFS1<1THENS1=1 

1559 IFS1>ZTHENS1=Z 

1568 IFS2<1THENS2=1 

157@ IFS2>ZTHENS2=Z 

1588 IFA(S1,$2) =ESORA(S1,52) =COTHENS1I=Y1 
°S2=Y2 

1599 A(S1,S2)=SU 

1698 RETURN 

1L61GD REMKKK HHH HHH KKK KKK HG 

162G REM CONTROL SUB 

1638 PRINTTAB(6) "THE SUB IS MOVING..." 
164@ X1=S1:x%2=S2 

1658 A(S1,S2)=BL 

1669 REM ** PICK CONVOY OR ESCORT ** 
167@G R=INT(RND(1)*¥2) +1 

1688 IFR=1THENK1=C1:K2=C2 

169@ IFR=2THENK1=E1:K2=E2 

1788 FA=6 

1719 IFRND(1) >DITHEN225¢ 


+329 IFFA=1 THENRE TURN 
36 IFRND(1)>.5THEN177¢ 


1746 IFS1<KITHENS1=Siti:tIFSi>2Z2THENS1=2:G 
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OTO179¢9 


1738 


IFS2<¢K2THENS2=S2t1ilt IFS2>ZTHENS2=2:6 


OTO179S9 


1766 
1779 


GOTO1796 
IFSK>KITHENS1=S1-1:°1FS1<¢1THENS1I=1:°G 


OTO1799 


1782 
1796 
ray 

1890 
1816 


1826 
183969 


IFS2>K2THENS2=S2-1:1FS2¢1THENS2=1 
IFA(S1,S2) <>BLTHENS1=X~ S2=xX2:G0TO16 


A(S1,52)=SuU 

PRINTTAB(6) "SUB HAS STOPPED..." 
PRINTTAB(7) "PREPARING FOR SONAR..." 
REM ** 290% CHANCE OF NOT ATTEMPTING 


TO FIRE ** 


1849 


138356 
1869 


13/76 


IFRND(1)>.8THENRETURN 

IFS1< 27E1THEN29S59 

IFS2<¢E2THENI9S6¢9 

IFS2>E2THENPRINT"I AM FIRING AT ESC 


DRG sae” 


1380 
1896 
15E 

1960 


P10 
929 


FORE=S2TOE2STEP-1 
IFE“< >S2THENPRINTTAB(E) "TORPEDO AT"S 


FORT=1TO1996:NEXTT 


NEXTE 
IFRND(1)>.9THENPRINTTAB(7) "TORPEDO 


WAS INEFFECTIVE” >: RETURN 


1936 


PRINT"ESCORT HIT AT"E1S;E2:EC=ECt+1i:iI 


FEC >2THENOG=0G+t.5 


1946 
URN 

1956 
1968 
1976 
1989 
1996 
LAGS 


2816 


IFECS2THENA(E1,E2)=BL:E1=9:E2=9: RET 


RETURN 

PRINT"I AM FIRING AT ESCORT..." 
FORE=S2TOE2 

PRINTTAB(E) "TORPEDO AT"S1,E 
FORT=1TO196:NEXTT 

NEXTE 
IFRND(1)>.9THENPRINTTAB(4) "TORPEDO 


FAILED..." : RETURN 


29825 


PRINT"ESCORT HIT"E1;E2:;EC=ECt+1:IFEC 


>2THENOG=OG+t.5 


2G3B 
URN 


IFEC>2THENA(E1,E2)=BL:E1=6:E2=0:RET 


26490 RETURN 
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2050 IFS1<>C1THENRETURN 
2868 IFS2<C2THEN2169 

267@G IFS2>C2THENPRINT"I AM FIRING AT CON 
VOY..." 

2986 FORE=S2TOC2STEP-1 

@GB9 IFE< >S2THENPRINTTAB(E) "TORPEDO AT"S 


2196 FORT=1TO196@: NEXTT 


2116 NEXT E 

2126 IFRND(1)>./THENPRINTTAB(4) "TORPEDO 
FAILED..." 2: RETURN 

2138 PRINT"CONVOY HIT AT "C13;C2:CC=CCtH1: 
IFCC >2THENOG=O0Gt.5 

219@ IFCC}2THENA(C1,C2)=BL:Ci=6: C2=6: RET 
URN 

21356 RETURN 

2160 PRINT"I AM FIRING AT CONVOY..." 
2176 FORE=S2TOC2 

2186 PRINTTAB(E) "TORPEDO AT "S1i5E 

21996 FORT=1TO1GSG: NEXT T 

2268 NEXT E 

22198 IFRND(1)>./THENPRINT" TORPEDO FAILED 
eee sRETURN 

2226 PRINT"CONVOY HIT AT"C1i;C2:CC=CCt1i:il 
FCC >2THENOG=O0OGt.5 

2236 IFCC>}2THENA(C1,C2) =BL:C1=8:C2=G: RET 
URN 

2296 RETURN 

2250 PRINT"SUB UNLEASHES LONG-RANGE MISS 
iG 

2269 GOSUB231¢ 

2270 ITIFR=2ZANDECS STHENFA=1: GOTO262G 

228386 IFR=2THEN2399¢9 

22906 IFCC< 3THENFA=1: GOTO2226 

2399 PRINTTAB(12) "IT FAILED..." 

23190 FORT=1TOS@G: NEXT T 

2326 FA=1 

2336 RETURN 

Z394G REM KEKKKKKKKHKKKKKKE 

2359 REM PRINT GRID 

23690 PRINT"{CLRi" 2 PRINT: PRINT 

23796 PRINT, "SUB CONDITION: "SC 

23386 PRINT" >> DAY"DA"<<" 

2398 PRINT, "SHOTS LEFT"SH 
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>PRINTTAB(S) 5 
3 


IFC1>@THENPRINTTAB(4) "CONVOY AT"C13 
CONDITION: "CC 
IFC1<1THENPRINT"CONVOY DESTROYED” 
IFE1>@THENPRINTTAB(4) "ESCORT AT"E13 
CONDITION: "EC 
IFE1<1THENPRINT"ESCORT SUNK!" 
PRINT "----------------------------- 
------ "PRINT 
FORC=ZTOLSTEP-1 
IFC< 1S THENPRINT" 
IFC >9THENPRINTC} 
FORD=1TOZ 
IFA(C,D) < >SUTHENPRINTCHRS(A(C,D)) 3 
IFA(C,D)=SUTHENPRINT". "3 
NEXTD 

PRINT 

NEXT C 

RETURN 

REM INITIALISATION 
PRINT"{CLR}" 
POKE53281,9:POKE5S3289,9 
PRINT"{CLR}" 

PRINT:PRINT 

PRINT"ENTER SIZE OF GRID 
INPUTZ 
IFZ<30RZ>29THEN25796 
PRINT: PRINT"ENTER DEGREE OF DIFFICU 
"1 - EASY" 

"18 - VERY HARD" 


ie i 


(3 TO 20)" 


PRINTTAB(S3) 
INPUTDI 
DI=(11-D1)/19 

PRINT" CCLRF"2 PRINT: PRINT 


DIMA(Z,2Z) 

BL=ASC("."):REM BLANK 
ES=ASC ("E") :REM ESCORT 
CO=ASC ("C"):REM CONVOY 
SU=ASC ("SS") !REM SUBMARINE 
EC=@:REM ESCORT CONDITION 
CC=@:REM CONVOY CONDITION 


SC=6:REM SUB CONDITION 

DA=1 

PRINT"PLACE CONVOY (TWO NUMBERS" 
PRINT"EACH LESS THEN"2Z+1")" 


286 


27568 
27608 
TART 
27768 
2780 
2796 
23806 
2816 
TART 
23260 


INPUTC1,C2 
IFC1>ZORC2>ZORC1< 10RC2<¢ 1 THENPRINT"S 


AGAIN": PRINT: GOTO273¢ 
A(c1i,C2)=ca 


PRINT"PLACE ESCORT (TWO NUMBERS" 
PRINT"EACH LESS THAN"Z+1")" 
INPUTE1,E2 
IFE1>ZORE2>ZORE1< 1ORE2<¢ 1 THENPRINT"S 
AGAIN" : PRINT: GOTO289¢ 
IFA(E1,E2)=COTHENPRINT"CONVOY AT TH 


AT POSITION": GOTO2839¢ 


2336 
2346 
INE" 

23350 
2369 
2372 
28836 
2399 
rare 
29°28 
29368 
29°4DG 
29°58 
2966 
29768 


A(E1,E2)=ES 
PRINT: PRINT"I AM PLACING THE SUBMAR 


FORT=1TO1999: NEXT T 
SL=INT(RND(1)%Z) 41 
SZ2=INT(RND(1)¥Z) +1 
IFA(S1, $2) < >STHENZ86@ 
A(S1,$2)=SuU 

FORC=1TOZ 

FORD=1TOZ 

IFA(C, D) =STHENA(C,D) =BL 
NEXT D 

NEXT C 

OG=9 

SH=29 

RETURN 


READY. 
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FIRST BULL RUN 


The First Battle of Bull Run was the first battle of the 
Civil War in the Eastern Theater. It took place in July, 
1861. This was only weeks after the city of Washington 
had been placed under a virtual stage of siege following 
the action of Virginian troops in seizing the Harper's 
Ferry Arsenal and the Norfolk Navy Yard, and cut’ the 
Baltimore and Ohio Railroad, severing the capital's only 
rail Link with the West. 


Our battle takes place in and around the places’ where 
the original battle was fought, although the outcome is 
in your hands, rather than being dependant upon history. 
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The Union Army was under the control of Brigadier- 
General Irvin McDowell (1818-85), and the Confederate 
Army of the Potomac was under General Pierre Gustave 
Toutant Beauregard (1818-93). At the start of the game, 
you are allowed to choose which one you will be, with 
the computer taking the role of the opposing side: 


This is the First Battle of Bull Run, 
on July 21, 1361, the first battle in 
the Civil War in the Eastern Theater 


You can be: 
1 - Maj. Gen. Irvin McDowell (Union) 
or 2 = Gen, P G T Beauregard (Confed.) 


Enter "For 2Y «2 


Once you have chosen your role, you are asked _ to 
distribute your troops across the battle zone. In _ this 
Game, you and the computer distribute up to 100 troops 
in the battle area. As the fight gets underway, you take 
it in turns to choose a location for a battle. 


The commander with the most men in and around that 
Location wins that particular battle. The Loser's'§ men 
are removed from the field completely, while the 
winner's men stay on for future battles. 
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pe, At the end of the game fafter 18 
cy oe ae a ae battles, or when either side has less 
Die ade) than 16 troops, or one commander has 
have ban ehewn on the frbs 


te We Dypartmant «ataomant of the more than double the number his 
Fingal Say maggoighies ecwia its ch opponent has) the winner is the 
J fel fog wack, and fruition mast be any word of player who has captured the most 
mie ye : 

territory, not the one who has_ the 
most men still alive at the end of 
the day. Gruesome as that sounds, it 
is related to the way the way battles 
really are fought, lost and won. 


Once you've: decided which role you will occupy, you have 
to distribute your troops. The thirty-six battle 
Locations all have geographical counterparts, and 
although their relationship to each other in direction 
is generally fairly correct, their distance from each 
other is not. You may wish to compare our Layout with 
a map of the actual territory, to get your bearings. 


Here are the battle sites: 


MARTINSBURG HARPER'S FERRY SHARPSBURG BALTIMORE MT AIRY BALTIMORE 
& OHIO R.A. 


WINCHESTER BALL'S BLUFF LEESBURG CENTREVILLE WASHINGTON ANNAPOLIS 


STRASBURG PARIS BLACKBURN'S THE STONE ALEXANDRIA PATUXENE 
FORD BRIDGE RIVER 

MANASSAS PIEDMONT BULLRUN SUDLEY POTOMAC CHESAPEAKE 

GAP R.R. SPRINGS FORD AIVER BAY 

BRANDY RAPPAHANNOCK MANASSAS AGUIA FREDER— SALISBURY 

STATION RIVER JUNCTION LANDING ICKSBURG 

GORDONSVILLE RAPIDAN CHANCELL- SPOTSYLVANIA WEST POINT PRINCESS 
RIVER ORSVILLE ANNE 
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You distribute your troops by entering the number 
want in that position after each Location is named: 


you 


YOU CAN NOW DEPLOY YOUR 
TROOPS, P G T BEAUREGARD 
YOU HAVE 100 TROOPS 


nae enw ert ewe eee eee eee esc ll ee lll esr es ll ec eee es esc ese ee esc le lee lees eee eee ee eel ell elle le 
nanenemererere &2 2 @2&e Be we Fi ws we wf ew FBT ose wee ewe we wae Pewee ww ewe TF BR ewe Ss = OF a =P oF 


HARPER'S FERRY? 5 
YOU HAVE 94 LEFT 


SHARPSBURG? 4 
YOU HAVE 90 


OHIO/BALT R.R.? 7 
YOU HAVE 83 


Next, the battlefields are shown, with your troops, and 
those of your opponent, underneath a four-Letter 
abbreviation of the place name: 


MART HARP SHAR OHIO MT A_ BALT 
1 +5o 5 40. 2. 6, “4 30> 82> 3°. 5. 7 
WINC BALL LEES CENT WASH ANNA 
Be > Bo Se 1 8 BB 6 
STRA PARI BLAC STON ALEX PATU 
he2 2 14 2 5 4H 4H 4 O 2 4 
GAPM PIED BULL SUDL POQTO CHES 
() sO <3 255 1 Ne 85s Oe By te 0s 0 
BRAN RAPP MANA AQUI FRED SALI 
2. ee 6 aes Se 4s 8h 2a 6 EO 
GORD RAPI CHAN SPOT WEST PRIN 
& Ae Sa ts c= i | ns SUR ss ce Ie 0 es @) 
P G T BEAUREGARD 100 TROOPS 


MC DOWELL 100 
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prints 


To fight, you enter the name of a zone (the four-letter 
abbreviation is all you enter) and the computer 
out the full name of the area, works out how many troops 
are in and around it, then determines who has won the 
battle: 

P G T BEAUREGARD 100 TROOPS 

IRVIN MC DOWELL 100 

PLEASE SELECT WAR ZONE? BULL 

WAR ZONE = BULL RUN 

IN BULL RUN IRVIN MC DOWELL 

HAS 25 AND P G T BEAUREGARD HAS 33 

WELL DONE! 

P G T BEAUREGARD WINS BATTLE FOR 

BULL RUN 

The map is then redrawn. As you can see,’ the 


player 


(Beauregard) won this battle so his men stay in position 
while those of the computer (McDowell) 


around Bull Run, 


are removed: 


MART 
1 5 


WINC 
> 2 


STRA 
4 2 
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The computer then selects a zone, and the fight 
continues: 


I WILL FIGHT AT MARTINSBURG 
P G T BEAUREGARD HAS 10 
IRVIN MC DOWELL HAS 12 


THIS BATTLE OF MARTINSBURG WAS 
WON BY IRVIN MC DOWELL 


MART HARP SHAR OHIO MT A~ BALT 
1 Os 52 OF 2" 56; “A Oy 2 be 5) 


WINC BALL LEES CENT WASH ANNA 
Bee ae On 33 3 ese tS 5 BG 


STRA PARI BLAC STON ALEX PATU 
4 2 0 414 0 5 0 4 4 0 2 4 


GAPM PIED BULL SUDL POTO CHES 
i 20P 20") 25 0. 4 302 =O. 3. Ae Oe 0 


BRAN RAPP MANA AQUI FRED SALI 
2 5. 10. W6> 0: <5 .0 og. =2) 6 a 0 


GORD RAPI CHAN SPOT WEST PRIN 
Gyms Sen SU oe) © ces © ae CR CC 


P G T BEAUREGARD 90 TROOPS 
IRVIN MC DOWELL 75 


And so the game continues: 


MART HARP SHAR OHIO MT A BALT 
be “Or 35> 80-5 2 0 4s Oe 22> 0. 


WINC BALL LEES CENT WASH ANNA 
Den Or ti O30. 3, OO Be Oe Ss. 0 
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GAPM PIED BULL SUDL POTO CHES 
0 0 0 0 0 0 0 0 0 0 0 0 
BRAN RAPP MANA AQUI FRED SALI 
0 5 0 6 0 5 0 3 0 6 0 0 
GORD RAPI CHAN SPOT WEST PRIN 


At the 


0 3 0 20 10 6060 1 0 0 


P G T BEAUREGARD 38 TROOPS 
IRVIN MC DOWELL 47 

PLEASE SELECT WAR ZONE? AQUI 
WAR ZONE = AQUIA LANDING 


IN AQUIA LANDING IRVIN MC DOWELL 
HAS 0 AND P G T BEAUREGARD HAS 22 


WELL DONE! 
P G T BEAUREGARD WINS BATTLE FOR 
AQUIA LANDING 


end, when one of the terminating conditions 


mentioned earlier is achieved, the computer prints out a 
summary of the whole event, and names the final winner: 


THIS IS HOW THE ACTION WENT: 
REMAINING TROOPS: 
P G T BEAUREGARD 38 
IRVIN MC DOWELL 47 
P G T BEAUREGARD WON BULL RUN 
IRVIN MC DOWELL WON MARTINSBURG 
P G T BEAUREGARD WON FREDERICKSBURG 
IRVIN MC DOWELL WON HARPER'S FERRY 
IRVIN MC DOWELL WON WASHINGTON 
IRVIN MC DOWELL WON SHARPSBURG 
P G T BEAUREGARD WON BRANDY STATION 
IRVIN MC DOWELL WON WINCHESTER 
P G T BEAUREGARD WON CHANCELLORSVILLE 
IRVIN MC DOWF'T, WON RALL'tS BLUFF 
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IRVIN MC DOWEL!T. WON PATUXENT RIVER 
IRVIN MC DOWELL WON LEESBURG 
P G T BEAUREGARD WON RAPPAHANNOCK R. 
IRVIN MC DOWELL WON STRASBURG 
P G T BEAUREGARD WON AQUIA LANDING 
IRVIN MC DOWELL WON PARIS 
IRVIN MC DOWELL WON BLACKBURN'S FORD 
THE BATTLE OF BULL RUN 
HAS BEEN FOUGHT AND 
WON BY IRVIN MC DOWELL 


Time now for you to do your part in recreating, and 
rewriting, history: 


1@ REM FIRST BULL RUN 
2G GOSUB139@:REM INITIALISE 

38 GOSUB1339 

49 PRINT"{CLR}"!PRINT:PRINT"STAND BY, "3 
HS", FOR A" 

S@ PRINTTAB(7)3 "SITUATION REPORT" 

6G GOSUB183@2 

78 GOSUB112@:REM PRINT OUT 

8@ IFHC<1460RCC< 160RHC<CC/ 20RCCSHC/ 20RBA= 
18THEN789: REM END 

96 PRINTHS$3HC"TROOPS "3C#3CC 

196 GOSUBiI83¢ 

116 GETAS: IFAS< >" "THEN119 

126 BA=BA+1 

136 GOSUB44@:REM HUMAN SELECTS 

149 GOSUB183¢ 

15@ GOSUB1126 

168 GOSUB183¢ 

178 IFHC=SORCC=9THEN782 

188 BA=BAt1 

198 GOSUB226:REM COMPUTER SELECTS 

266 GOTOSE 

21D REM HXKKKKKKKHKHKKKHH 

226 REM COMPUTER SELECTS 

238 HT=8:CT=a 

249 D=2 

258 E=2 

268 GOSUB1G49 

278 IFCT>HTTHENS39 
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289 IFE<?7THENE=E+1:G0T026@ 

298 IFD<7THEND=D+t1:GOTO25¢ 

39G E=INT(RND(1)%¥6)+2 

319 D=INT(RND(1)%*6) +2 

329 GOSUBI96¢G 

338 FR=BS(D,E) 

349 FL=9:GOSUB199G: IFFL=1THEN289 
35@ PRINT"I WILL FIGHT AT "3BS(D,E):FS=B 
$(D,E) 

36G RS( BA) =F 

378 GOSUB1839 

38 PRINTHS;" HAS"HT 

398 GOSUB18S39 

ASG PRINTCS;" HAS"CT 

418 GOSUBI83g 


420 GOTOS9S 
FOF REM KHKEKHHHHHHKHKHKHHHH 


449 REM HUMAN SELECTS ZONE 

459 INPUT"PLEASE SELECT WAR ZONE";FS 

4690 IFLEN (FS) < >4THENSSS 

470 PRINT 

430 D=0G:E=4 

496 FORX=2TO?7 

366 FORY=2TO? 

S19 IFLEFTS(FS,4)=LEFTS(BS(x*, Y) ,4) THENE= 
As D=Y:PRINT"WAR ZONE - "SBS(X,Y) SFSH=BS(X 
N20 NEXT ¥ 

336 NEXT xX 

349 FL=8: GOSUB1I996: IFFL=1THENPRINTFS;" H 
AS BEEN FOUGHT": GOSUB18396: GOTO456 

I3G RS( BA) =FS 

569 GOSUB1G69:REM COUNT SUBROUTINE 

3760 PRINT: PRINT"IN "5FS5" "5CS 

S89 PRINT"HAS"CT"AND "3HS3" HAS"HT 

3780 PRINT 

6060 IFHT=CTTHENPRINTTAB(8)3"> NO BATTLE 
€" 2 GOSUB1836: RETURN 

6196 ITFHT>CTTHENPRINT"WELL DONE! ":PRINTHS 
5" WINS BATTLE FOR ",F%:.: PS( BA) =F 

626 GOSUB183¢6 

6398 IFCT>HTTHENPRINT" THIS BATTLE OF "3FS 


3” WAS": PRINTTAB(3)5 "WON BY "SCSI QS (BA) = 
FS: GOTO79S2 
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6468 
6359 
669 
676 
680 
696 
2 OD 
716 
720 
7308 
748 
7ID 
76D 
7/6 
739 


— —_ om 


se HW= 


SOS 


A(D-1,E-1)=8:A(D-1,E)=9 
A(D-1,E+1)=G:A(D,E-1)=¢ 
A(D,E+1)=G:A(Dt1,E+1) =o 
A(D+1,E)=@G:A(Dt1,E-1)=@ 

A(D,E)=9 

RETURN 

G(D-1,E-1)=9:G(D-1,E)=9 
G(D-1,E+1)=6:G(D,E-1)=@ 
G(D,E+1)=@:G(D+t1,E+1)=9 
G(D+1,E)=8:G(Dt1,E-1)=@ 

G(D,E)=9 

GOSUB1339¢ 

RETURN 

REM XX XKXKKHKHKHHIN 

REM END OF BATTLES 

PRINT:PRINT 

PRINT"THIS IS HOW THE ACTION WENT: " 
PRINT"------------------------------ 
PRINT"REMAINING TROOPS: " 
PRINTTAB(7) $H®$3HC 
PRINTTAB(7) $C#3CC 


HW=@:CW=98: REM HUMAN, COMP. WIN 
FORZ=1TOBA 

FORT=1TOSGO: NEXT T 
IFP$(2)<>""THENPRINTHSs " WON "5 PS(2) 
HW+ i 

IFQS$(2Z)<>" "THENPRINTTAB(3)5C%3" WON 


";Q$ (2) > CW=CWtl 


98D 
91D 
926 
930 
946 
95D 
96D 
97@ 
$5"! 
988 
99D 


NEXT 2 

PRINTTAB(7)5; "THE BATTLE OF BULL RUN" 
PRINTTAB(9)5 "HAS BEEN FOUGHT AND" 
PRINTTAB(7)5 "WON BY "5 
IFCW?HWTHENPRINTCS 
IFHWSCWTHENPRINTHS 
IFHW=CWTHENPRINT"NO-ONE..." 
IFHW>CWTHENPRINT"CONGRADULATIONS "3H 


END 
REM KEEKKKKKKHKHHEHKHKKKKEKKKEKHEKKEEHE 
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1996 REM CHECK IF BATTLE FOUGH: BEFORE 
191@ FORK=1TOBA 

1926 IFLEFTS(FS, 4) =LEFTS(RS(K),4) THENFL= 
1 

1936 NEXTK 

1946 RETURN 

LGSGH REM HHXEKKKKKKKKKKKHHH 

19666 REM COUNT SUBROUTINE 

1970 HT=8:CT=9 

1986 HT=G(D-1,E-1)+G(D-1,E)+G(D-1,Et+t1)+G 
(D,E-1)+G(D,E)+G(D,E+1)+G(Dt1, Ertl) 

19685 HT=HT+G(Dt1,£)+G(Dt1,E-1) 

1999 CT=A(D-1,E-1)+A(D-1,E)+A(D-1,E+1)+A 
(D,E-1) +A(D,E) +A(D,E+1)+A(Dt1,E+1) 

1995 CT=CT+A(D+t1,E)+A(Dt1,E-1) 

1198 RETURN | 

LL1L1G REM KKKKKKKKKKKKHK 

1126 REM PRINT OUT MAP 

1139 HC=@:CC=6:REM HUMAN, COMP. COUNT 
1194@ PRINT"{CLR}":PRINT 

1156 FORE=2TO? 

1169 FORIJ=1TQ2 

1176 FORD=2TQ? 

1186 IFIJ=1ANDD=2THENPRINT" "35 

11996 IFI=1THENPRINTLEFTS(BS(D,E),4)3”" " 


3 

126@ IFJ=2THENPRINTA(D,E)3G(D,E)$ 

1219 HC=HC+G(D,E) :CC=CCtA(D,E) 

1229 NEXT D 

1238 PRINT 

1249 NEXT J 

1256 PRINT 

1266 NEXT E 

1278 HC=HC/2:CC=CC/2 

128@ RETURN 

L2PG REM XHXKKKHXHHKHKHHHKK 

1398 REM INITIALIASTION 

1319 PRINT"{CLR}" 

1328 REM 

1339 DIMA(S,8),G(8,8) ,BS(8,8) , A8(36) , PS ( 
36) ,RB(36) 

134@ H#="IRVIN MC DOWELL":CS="P G T BEAU 
REGARD" 

1359 PRINT!:PRINT 
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1369 


PRINT" THIS IS THE FIRST BATTLE OF B 


ULL RUN," 

137@ PRINT"ON JULY 21, 1861, THE FIRST B 
ATTLE IN" 

1388 PRINT"THE CIVIL WAR IN THE EASTERN 
THEATER” 

1399 PRINT: PRINT: PRINT 

149@ PRINT"YOU CAN BE:"!:PRINT" 1 - MAJ 
OR GEN. IRVIN MCDOWELL (UNION) " 

1419 PRINT"OR 2 - GEN. P G T BEAUREGARD 
(CONFED.)":PRINT 

142@ INPUT"ENTER 1 OR 2"3F 

19438 IFF<1O0RF>2THEN1429 

1449 PRINT"{CLR}" 

1459 IFF=2THENMS=HS: HS=CH: CH=MS 

1469 PRINT:PRINT"PLEASE STAND BY "3H% 
1478 FORD=2TO?7 

1489 FORE=2TO? 

1499 READBS(D,E) 

1599 NEXT E 

1519 NEXT D 

1526 GOSUB112@:REM PRINT OUT 

1539 FORT=1TO3@:PRINT:FORJ=1TO19G:NEXT J 
=NEXT T 

1549 PRINT"YOU CAN NOW DEPLOY YOUR" 

155@ HT=19@:CT=199:REM HUMAN TROOPS, COM 


PUTER TROOPS 


1569 
157d 


PRINT" TROOPS, "3H 

PRINT"YOQU HAVE 1998 TROOPS." 
FORD=2TO? 

FORE=2TO?7 

PRINT "s=s===$ssss2s2sesse52e52=5e2e5== 
PRINTBS(D,E) 3 

INPUTA(D,E) 

IFA(D,E) }?7THENPRINT"TOO MANY TROOPS 


IN ONE AREA": GOTO1626 


1649 


IFHT-A(D,E) <@THENPRINT”" YOU DO NOT H 
MANY LEFT": GOTO1629 


Be Hee TOR DED 


1669 
1676 


1639 


R=INT (CRND (1) ¥7) 
IFCT-xX<STHENX=2 
G(D,E)=K:CT=CT-x 


299 


1699 PRINT"YGU HAVE"HT" TROOPS LEFT TO DE 

PLOY" 

1798 NEXT E 

1719 NEXT D 

1720 PRINT" #=s=={=s=ss2s=2s2s=5==55==5=== 
173@ IFCT>@THENG(4,5)=G(4,5)+CT 

1748 BA=9 

1759 RETURN 

1768 DATA"MARTINSBURG", "HARPER’S FERRY", ” 

SHARPSBURG", "GHIO/BALT R.R.","MT AIRY" 
1765 DATA"BALTIMORE", "WINCHESTER" 

17768 DATA"BALL’S BLUFF", "LEESBURG", "CENT 

REVILLE", "WASHINGTON", "ANNAPOLIS" 

1789 DATA"STRASBURG", "PARIS", "BLACKBURN’S 
FORD", "STONE BRIDGE", "ALEXANDRIA" 

1785 DATA"PATUXENT RIVER", "GAPMANASSAS R 

R", "PIEDMONT", "BULL RUN" 

179G DATA"SUDLEY SPRINGS", "POTOMAC RIVER 
"> "CHESAPEAKE BAY" 

SAG DATA"BRANDY STATION", "RAPPAHANNOCK 
-","MANASSAS JUNCTION", "AQUIA LANDING" 
1895 DATA"FREDERICKSBURG", "SALISBURY", "G 

ORDONSVILLE", "RAPIDAN RIVER" 

1819 DATA"CHANCELLORSVILLE", "SPOTSYLVANI 
A","WEST POINT", "PRINCESS ANNE" 

1829 REM XXX*X*X 

1838 REM DELAY 

184@G FORT=1TO1LSGG:NEXT T 

1858 RETURN 


READY. 
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GETTYSBURG DICE 


From July first to third, 1863, the Civil War blazed 
around Gettysburg. The Confederate Army of Northern 
Virginia was under the command of General Robert E Lee 
and the Union Army of the Potomac was controlled by 
Major-General George C Meade. 


In contrast to complex simulations of famous battles, 
this ‘war game' allows you to rewrite history simply by 
throwing a few dice. 
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When the game begins, you are asked which army you wish 
to command: 


GETTYSBURG DICE 


It is July 2, 1863, the second day 
of the Battle of Gettysburg... 


Do you wish to command the Confederate 
Army of Northern Virginia - as Robert E 
Lee (1) or the Union Army of the 
Potomac as George C Meade (2)? 1 


Once you have decided, the computer explains the rules: 


In this re-enactment of the second day 
of battle, you are Robert E Lee 
in charge of the Confederates 


We will roll two dice to determine the 
outcome of the small battles for 
territories within the Gettysburg area 


You have to predict, 
whether the total of the dice will be 
below seven, or above seven (a total 
of seven is not possible...) 


Please stand by.... 
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And so the battle rages: 


> Battle 1 - Little Round Top 


Now, General Robert E Lee 

Do you predict the dice total will be 
A = less than seven, or 
B = greater than seven 


Stand by to fight, General... 
6 >> 10 11 5 >> %T 8 9 >> 2 >> 
5 >> 9 >> 8 >> 6 >> 10 >> 5 


The total was 5 
Well done, General... 


You have defeated George C Meade 
in the Battle of Little Round Top 


Robert E Lee is leading... 
and your troops! morale is 100 % 


>» Battle 3 - Devil's Den 
Now, General Robert E Lee 
Do you predict the dice total will be 


A - less than seven, or 
B - greater than seven 


Stand by to fight, General... 
4 >> 10 8 10>> 9 >> 8 10 10 


The total was 10 
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I am sorry, General... 
but the battle of Devil's Den 
goes to George C Meade 


Robert E Lee is leading... 
and your troops! morale is 66.66 % 


>» Battle 7 - Ziegler's Grove 


Now, General Robert E Lee 

Do you predict the dice total will be 
A - less than seven, or 
B - greater than seven 


Stand by to fight, General... 
UW >> O° >> “9°38 10 9 8 >> 14-So 
Le 252. med 


The total was 4 


I am sorry, General... 
but the battle of Ziegler's Grove 
goes to George C Meade 


George C Meade has the edge... 
and his troops! morale is 57.14 @% 


There are nine battles in all, based in and_ around 
actual Locations at the historical site. At the end of 
the skirmishes, you are shown a summary of each clash, 
and then the result of the Battle of Gettysburg is 
determined: 
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Here's a Summary of the action: 
Little Round Top 

Robert E Lee was the victor 

His troops! morale was then 109 & 
Cemetry Ridge 

Robert E Lee was the vistter 

His troops! morale was then 1 °° 
Devil's Den 

George C Meade was the victor 

His troops! morale was then 33.33 % 
The Wheatfield 

George C Meade-was the victor 

His troops’ morale was then 50 $% 
The Peach Orchard 

Robert E Lee was the victor 

His troops! morale was then 60 ¢% 
Culp's Hill 

George C Meade was the victor 

His troops’? morale was then 50 ¢ 
Ziegler's Grove 

George C Meade was the victor 

Fis troops’ morale was then 57.14 $ 


einer) Ridge 

nobert E Lee was the victor 

His troops' morale was then 50 ¢% 
Gettysburg 

Robert E Lee was the victor 

His troops! morale was then 55.55 @% 


gen weewe@weweampe eewewewes = @eere ewqwwermre=e ee wweawearpapear ge awe.se a= as Ga a= es Go es G@ oe 


As you can see, Robert E Lee 
won the majority of the battles 
And so I declare Robert E Lee 
is the victor, on July 2, 1863 
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In the actual Battle at Gettysburg, 
Lee acknowledged defeat on July 4... 


The Confederates lost about 4000 men, 
18,000 were wounded, and 5,150 were 
captured or missing... 


The Unionists lost 3,155 men, 
14,529 were wounded, and 5,365 were 
captured or missing... 


When you're ready to rewrite history, enter the 
following program, and be ready to take over the role of 
commander for a few brief shining moments: 


1@ REM GETTYSBURG DICE 

20 POKE5S3281,9:POKE53289,5 

3@ PRINT 

49 HU=@:REM HUMAN SCORE 

5G DIMA(9),C(9),H(9) 

68 H$="{YEL}ROBERT E LEE" 

78 C$="{GRN}GEORGE C MEADE" 

8G PRINT"{CLR}"!:PRINT!:PRINT 
99 PRINT"{YEL}GETTYSBURG DICE” 
19@ PRINT!:PRINT 

119 PRINT"{CYN}IT IS JULY 2, 1863, THE S$ 


ECOND DAY" 
126 PRINT"OF THE BATTLE OF GETTYSBURG... 


1396 PRINT:PRINT 
14@ PRINT"DO YOU WISH TO COMMAND FEDERAT 


E”" 

1358 PRINT"ARMY OF NORTHERN VIRGINIA - AS 
ROBERT E" 

166 PRINT"LEE (1) QR THE UNION ARMY OF T 

HE a 


176 PRINT"POTOMAC AS GEORGE E MEADE (2)" 


186 INPUTA 
190 IFAS 1ORA>2THENI8S¢ 
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268 IFA=2THENDS=C#: C#=HS: HS=DS 

219 PRINT" {CLR}":PRINT: PRINT 

226 PRINT"{WHT}IN THIS RE-ENACTMENT OF T 
HE SECOND DAY” 

239 PRINT"OF BATTLE, YOU ARE "H® 

246 IFLEFTS(HS,1)="R"THENPRINT"IN CHARGE 
OF THE CONFEDERATES": GOTO25@ 

245 PRINT" IN CHARGE OF THE UNIONISTS” 
25@ PRINT: PRINT 

268 PRINT"WE WILL ROLL TWO DICE TO DETER 
MINE THE” 

278 PRINT"GUTCOME OF THE SMALL BATTLES F 

OR" 

289 PRINT"TERRITORIES WITHIN THE GETTYSB 
URG AREA" 

298 PRINT 

398 PRINTTAB(?7);"YOU HAVE TO PREDICT" 
319 PRINT"WHETHER THE TOTAL OF THE DICE 
WILL BE" 

328 PRINT"BELOW SEVEN, OR ABOVE SEVEN (A 
TOTAL" 

339 PRINTTAB(6)3;"OF SEVEN IS NOT POSSIBL 

ee eg 

359 PRINT" {PUR}PLEASE STAND BY...." 

369 FORT=1T03@: PRINT 

378 FORX=1TO1@@9:NEXT xX 

38 NEXT T 

398 FORJ=1TO9 

49 GOSUB42¢ 

419 GOTO539 

428 PRINTTAB(3)3"{OR}> BATTLE"J3" - {WHT 
"5 

439 IFJ=1THENPRINT"LITTLE ROUND TOR” 

449 IFJ=2THENPRINT"CEMETRY RIDGE” 

4596 IFJ=3THENPRINT"DEVIL’S DEN" 

469 IFJ=4THENPRINT"THE WHEATFIELD" 

476 IFJ=STHENPRINT"THE PEACH ORCHARD" 


4806 IFJ=6THENPRINT"CULP’S HILL" 
499 IFJI=/THENPRINT"ZIEGLER’S GROVE" 


IGG IFI=STHENPRINT"SEMINARY RIDGE" 
S198 IFI=STHENPRINT"GETTYSBURG" 

3290 RETURN 

9350 PRINT 

349 PRINT" {CPURSNOW, GENERAL "3HS 
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rare) 2) 


PRINTS PRINT" CCYN+DO YOU PREDICT THE 


DICE TOTAL WILL BE" 


JOD 


PRINTS PRINTTAB(?)5 "LT RED+A - LESS 


THAN SEVEN, OR" 


378 


PRINT: PRINTTAB(?)5"B - GREATER THAN 


SEVEN" 


289 
398 


6695 
619 


INPUTZS 

IFZS< oO "A" ANDZS< 7" B" THENS8S 

PRINT: PRINT 

PRINTTAB(3)3;"{GRN3STAND BY TO FIGHT, 


GENERAL...." 


626 
6368 
649 
6356 
666 


676 
686 


FORT=1TO1698@G:NEXT T 

RE=INT (RND(1)*6+RND(1)%6+2) 

PRINT" {OR} "REs5 

FORT=1TO1I36°2NEXT T 

IFRE=/7THEN639 
IFRE>/7ANDRND (1) >.45THEN6369 
IFRND(1)>.2THENPRINT" >? "3; >: GOTO639 
PRINT: PRINT: PRINTTAB(6)3;"THE TOTAL W 


47] 
AS" RE: PRINT 


786 
G 
718 


RAL e 


7268 
739 
74D 


738 
7 O06 
7/768 


AL... 


789 
79S 
SOG 
819 
S20 


339 
346 


S330 


IF Z2$="A" ANDRES 7ZORZS="B" ANDRE >7THEN?? 


PRINTS PRINT"{LT BLUST AM SORRY, GENE 


PRINT"BUT THE BATTLE OF "3 

GOSUB4SSG 

PRINTTAB(S)3; "GOES TO "3;C% 

CO=CO+r1 

GOTO839 

PRINT: PRINT"{LT BLUSWELL DONE, GENER 
PRINT" YOU HAVE DEFEATED ";CS% 
PRINT" IN THE BATTLE OF "$3 

GOSUB4396 

HU=HU+ 1 

A(J)=1 

IFJ=9THENSSD 

PRINT: PRINT 

IFCO>HUTHENPRINTCS$3;" HAS THE EDGE... 


":PRINT"AND HIS TROOPS’ MORALE [5"3 


835 
ba 
S69 


IFCO>HUTHENPRINTINT (CO¥199690/3)/1966" 


IFHU>COTHENPRINTHS;" IS LEADING... ": 


PRINT"AND YOUR TROOPS’ MORALE 15"; 
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865 IFHU>COTHENPRINTINT (HUX¥19998/3)/196" 

%" 

87@ IFCO=HUTHENPRINT"THE FORCES ARE BALA 

NCED...." 

88G H(J)=INT(HUX199G8/I)/199 

899 C(J)=INT (COX¥1G8GG8/I)/19B 

99@G FORT=1TO159@:NEXT T 

919 FORT=1TO39: PRINT 

928 FORX=1TO7@:NEXT x 

938 NEXT T 

94G NEXT J 

959 PRINT:PRINT"{LT GRN}HERE’S A SUMMARY 
OF THE ACTION:" 

968 FORJ=1TO9 

978 GOSUB439 

988 IFA(J)=1THENPRINTHS; 

985 IFA(J)<>1THENPRINTCS3 

999 PRINT"{OR}WAS THE VICTOR" 

196@ PRINT"{WHT}HIS TROOPS’ MORALE WAS T 
HEN" 3 

1918 IFA(J)=1THENPRINTH(J) 3 "%" 

1918 IFA(J)<>1THENPRINTC(J) 3 "%" 

1928 PRINT" {(CYN}------------------------ 


1938 FORT=1TOS@S: NEXT T 


1949 NEXT J 

1959 PRINT 

196@ IFHU>COTHENPRINT"{CYN}AS YOU CAN SE 
E, "3H 

197@ IFCO>HUTHENPRINT"THE RESULTS SHOW T 
HAT "3C% 

1989 PRINT"WON THE MAJORITY OF THE BATTL 


ES" 
1G6°6 FORT=1TOS6S8:NEXT T 


11966 PRINT"AND SO I DECLARE "3 

11196 TFHU>COTHENPRINTHS 

1115 IFCOSHUTHENPRINTCS 

1126 PRINT"IS THE VICTOR, ON JULY 2, 186 
3H 

11396 PRINT: PRINT 

11946 PRINT" {PURSIN THE ACTUAL BATTLE AT 
GETTYSBURG, " 
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11596 PRINT"LEE ACKNOWLEDGED DEFEAT ON JU 


LY 4..." 
1169 PRINT: PRINT 


1176 FORT=1TO5@@:NEXT T 
1189 PRINT"THE CONFEDERATES LOST ABOUT 4 
G99 MEN," 

1199 PRINT"18,9@@ WERE WOUNDED, AND 5,15 


@ WERE” 
1269 PRINTTAB(S8)3 "CAPTURED OR MISSING... 


1219 FORT=1TOS9@6: NEXT T 


1226 PRINT 
12396 PRINT” THE UNIONISTS LOST 3,155 MEN, 


12496 PRINT"14,529 WERE WOUNDED, AND 35,36 


2 WERE" 
12356 PRINTTAB(8)3;"CAFTURED OR MISSING... 


READY. 


310 


ALIEN ATTACK 


Earth has fallen on harac times. The entire 
responsibility for defending the poor old planet against 
teeming hordes of Less—than-friendly alien creatures has 
fallen on your shoulders. Again. 


. e bd = . t 
“ -_e rf Ae . Py ae 's 
ppeeercrpeteee oe ete + . . “ 
‘2 
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In ALIEN ATTACK, outer space Looks Like this: 


>> ALIENS ON EARTH O << 
a? SHIPS DESTROYED «O™ wee 


i ING a a oe “SE 
A. me ° a cee) es ae 
D. et cE ees 
A. ° ele ‘ 
De eM ; ee ae 
A, ponies We ee eile = Ga and 
Divronee athen qos NS ord oer 
A. eel Se cok te Mae ae ag 

cae ee le, Sole Mis a 
Rig!) — ‘ a8 


>> Survival time: 0O << 


Earth is the nine E's up in the top right hand corner 
and the aliens are represented by the A's. The aliens 
Start the game as you See them now, up against the left 
hand side of the solar system. 


As well as aliens and the earth, this sector of space 
contains the hapless human defender (you, shown. here as 
an H), three 'droids shown as D's who are working for 
the aliens, and a number of generally nasty space-mines 
(shown as M's) which will hurt anybody or anything they 
come into contact with. 
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A lot happens from move to move in this game. Here's the 
scene seven moves from the printout we Looked at a few 
moments ago: 


>> ALIENS ON EARTH O << 
>> SHIPS DESTROYED 1 << 


he eho Tt ee dere < 
see oM.A. ° e e oe. Bie E56 
BE. & 


td] e ° td] o +] ° e 6 


eo o @ e oM. ° 9 ° i] 


sie ° e o Qo @ ° e 


>> Survival time: 7 << 


Two moves Later and it Looks Like this: 


>> ALIENS ON EARTH O << 
>> SHIPS DESTROYED 1 << 


e ® o 4: 4 e e 6 +] ] ® 


ae are 
° ® A J M. e e A ° i] ° E ° E. BE. 
.) Qe A ° td tity a o * e E E E 


>> Survival time: g << 
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Needless to say, the aim of the game is to prevent’ the 
aliens from Landing on earth. You can only do this by 
blowing them up, which you do simply by Landing on top 
of them. Note that a floating mine will do you a rather 
fatal amount of harm if you happen to connect with it. 


The game iS an =intriguing one, with a number of 
different possible outcomes, and with many’ strategies 
you can try. Sometimes the computer appears’ to 
concentrate only on getting the aliens to earth. In 
other games, you'll see that it works the three 'droids 
in concert in an attempt to crush you in a three-pronged 
attack. To make it more difficult for you, to overcome 
your natural advantage at being born on earth, you can 
only move up, down, Left or right. The aliens’ and 
'droids can move along the diagonals, as well as your 
four directions. Their position is strengthened further 
by their great mobility. While you can only move one 
Square at a time, 'droids and aliens can move one or two 
Squares per move, as they choose. 


Here's the first alien making it to earth in our 


demonstration game: 


>> ALIENS ON EARTH O << 
>> SHIPS DESTROYED 2 << 


° .M. .-] e @ ° ee see Oe 
sAeMe. oH at eee 
e tJ e D oe a Pe ee See oa 


<< 


>> Survival time: 13 << 
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A few moves Later, and all I can do is sail out into the 
Space Lanes again to try and get the single remaining 
alien. In doing so, I intended to keep away from the 
three 'droids, using the mines for cover (and making 
sure that I don't run into them): 


>> ALIFNS ON EARTH 1 << 
>> SHIPS DESTROYED 3 << 


° 9 oM. e 6 e a 8 


ae 
en Miz 3 ° ° 2 a oe 
a 


>> Survival time: 17 << 


But as the 'droids move in, I find myself in rather a 
spot of hot water: 


o 8 © © © © « >> ALIENS ON EARTH 1 << 
27> OHIPS DESTROYED: 3° axe 
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>> Survival time 


@ e wits ° ° ° o Pee Pn carey oe 
C) AaMs 8 C) ° ge Baltes 
° ° ) ° ° e ° D2 Bs EF. 


>> Surveaval time: 21 << 


ALL my efforts are in vain: 


>> ALIENS ON EARTH 1 << 
>> SHIPS DESTROYED 3 £=<< 


° Q oM,. @ ° ° ) Ae Se hee ee 
Qo ~A.M. ° 6 Vd] ] es Saree ae E. 
° a ] 2 ° ° Qo Qo esis Eo Ex 


+] oM, a "] ] 


You survived for 31 moves 
You have been Killed in your 
valiant attempt to defend Earth 


Your success rating is 250 
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Here's the Listing so you can do your best to rid the 
terran skies of the Green Peril: 


1@ REM ALIEN ATTACK 

2G PRINT"{CLR}" 

38 GOTOS69:REM INITIALISE 

AG REM XKKKXHHKXKHKHHHS 

S@ REM HUMAN MOVE 

7@ PRINT: PRINT"AWAITING YOUR COMMAND ’SI 
pee 

71 POKE198,@:REM THIS POKE CLEARS THE KE 
YBOARD BUFFER 

72 GETAS!: IFAS=""THENZ1 

8G IFAS< > "A" ANDAS<S > "Z"ANDASS >", "ANDASS >" 
-"THENPRINT"SORRY BUT I DON’T COMPREHEND 
96 MO=MOt1 

198 G=HX:F=HY 

118 @(HX,HY) =2 

128 IFAS=", "THENHX=HX-1! IFHX=@THENHX=1:R 
EM LEFT 

139 IFAS=". "THENHX=HX+1: IFHX=13THENHX=12 
‘REM RIGHT 

149 IFAS="A" THENHY=HY-1! IFHY=@THENHY=1:R 
EM UP 

158 IFAS="Z" THENHY=HY +1! IFHY=11THENHY=19 
°REM DOWN 

168 IFQ(HX,HY) =680RQ(HX, HY) =77THENDE=1:@ 
(HX,HY) =42:GOTO549 

17@ IFQ(HX,HY) =65THENAK=AK+1 

186 IF@Q(HX, HY) =69THENHX=G: HY=F 

198 @(HX,HY)=72 


ZIG REM KKEKEKKKHKKKKKKKEE 
219REM ALIEN MOVE 


229 FORIJ=1TOS 

2368 IFQ(A(I), BI) ) < >65THENS69 

240 Q(A(J),B(J))=G 

258 IFACI) >9ANDB(J) <4THENG(A(J),B(J))=69 
*AS=ASt+1!:GOTO369 

268 IFRND(1)>.5THEN299 

2798 IFA(J)=12THENS59 

2898 IFQ(A(J)+1,B(J))=90RQ(A(J)+1,B(3))=6 
STHENA (J) =A(J) +1: GNTOR4AG 
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296 
3G 


IFB(J)=10RA(J)=12THEN329 
IFQ(A(JI) ,B(J)-1) =S8O0RQ(A(J),B(J)-1)=6 


STHENB(J)=B(J)-1:GO0TO34¢ 
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IF@(A(J)+1,B(J)-1) =GORG(A(J)+1,B(J)- 


1) =69THENA(IJ)=A(J) +1: B(J)=B(J)-1:GOTO349 


326 
33g 
345 
358 
36D 
372 


3389 
39D 


499 
419 


429 
43g 
44g 
45g 
46D 
47 
48g 
499 


IFB(J) =190THEN3S49 
IFQ(A(J), B(J) +1) =S8THENB(J)=B(J) +1 
IFM=72 THENAK=AK+t+1:GOTO369 

Q(A(JI), B(J))=65 

NEAT J 

REM KXKKKKKKKHKEKKKKKE 


REM DROIDS 
FORJ=1TO3 


@(C(J),D(J)) = 

G=C(J)!H=D(J) 

IFRND(1)>.4THEN459 

IFC (J) SHXTHENC (J) =C(J)-1 

IFC (J) <HXTHENC (J) =C(J) +1 

IFRND (1) >. 35THEN4SS 

IFD(J) >HYTHEND(J)=D(J)-1 
IFD(J)<HYTHEND(J)=D(J)+1 
M=@(C(J),D(J)) 
IFM=650RM=690RM=77THENC (J) =G:D(J) =H: 


GOTOQS516 


IBD 
46 
216 


326 
3368 


349 
DUD 


360 
oe a 


2/78 


Cas 
38d 


39D 
698 


691 


2] 
692 


693 
684 


695 


IFM=72THENQ(C(J),D(J))=42: DE=1:GOTOS 


Q(C(JI),D(J))=68 

NEXT J 

REM HHEKEKKKHEKKEKKKKRKHKEKKEE 

REM PRINT BOARD 

PRINT" {CLR3"2PRINT: PRINT 
PRINTTAB(S)3;">> ALIENS ON EARTH"AS" 


PRINTTAB(5)3">> SHIPS DESTROYED"AK" 
PRINT 

FORA=1TO19 

FORB=1T012 

M=@Q(B,A) 

IFQ@(B,A)=@THENPRINT" {CYN}."3:GOTO62 


IFQ(B,A)=77THENPRINT"{LT RED}3"35 
IFQ(B,A)=68THENPRINT"{LT GRNG"; 
IFQ(B,A) =6STHENPRINT" €WHT3" 5 
IFQ(B, A) =469THENPRINT"{ORS"; 
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616 PRINTCHR®(Q(B,A)) 5 "{CYNF. "5 

629 NEXT B 

639 PRINT 

6496 NEXT A 

658 IFDE=10RAS+tAK=STHEN686 

6698 PRINT: PRINTTAB(S)3; ">> SURVIVAL TIME: 
“MO™ <<" 

676 GOTO/S 

639 PRINT: PRINT" YOU SURVIVED FOR"MO"MOVE 
ou 

6°99 PRINT: PRINT 

7GG SC=1GGKAK-SPKAS 

216 TFAK=STHENPRINT"YOQU HAVE SAVED THE E 
ARTH!! "2. GOTO?9S 

726 TFAS+tAK=STHEN?Z69 

736 PRINT"YOU HAVE BEEN KILLED IN YOUR" 
7496 PRINT"VALIANT ATTEMPT TO DEFEND EART 


758 GOTO799 

“$59 IFAS<STHENS12 

“78 PRINTTAB(6)3; "YOU FAILED COMPLETELY" 
788 PRINT:PRINT"ALL ALIEN SHIPS LANDED O 
N EARTH..." 

799 PRINT:PRINT"YOQUR SUCCESS RATING IS"S 
Cc 

S@@ END 

81@ PRINT"YOQU WERE PARTIALLY SUCCESSFUL. 
829 PRINT: PRINTTAB(5)3"YOU MANAGED TO DE 
STROY "AK 

838 PRINTTAB(8)3; "OF THE ALIEN SHIPS" 

848 GOTO799 

BSD REM KXKKHKHKK KKH KKK HHH 

86G REM INITIALISE 

878 POKES3281,@:POKE53289,4 

Ss@ REM 

89G DIMA(S),B(5),C(3),D(3),@(12,19) 

999 REM ** POSITION ALIENS + 

918 FORIJ=1TO5 

92G READA(J),B(J) 

938 @(A(I),B(J))=65 

949 NEXTI 

959 REM **% POSITION DROIDS ** 

968 FOR J=1TO3 
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76 READC(J),D(JI) 


989 Q(C(J),D(J))=68 
998 NEXT J 


19696 
191g 


1926 
19368 
1649 
1639 
1G69 
1972 
1986 
1996 


1196 
11190 


1129 
1136 
1149 
115g 
1169 
117¢ 


1189 
EAD 


1199 
12906 


bei 


12296 
12390 


12499 


Is D 


REM *¥ EARTH *¥* 

FORJ=1TO9 

READE,F 

Q@(E,F)=69 

NEXT J 

REM ¥% HUMAN %** 

@(5,8)=72 

HX=5:HY=8 

REM ¥% POSITION MINES ¥* 
FORJ=1TO12 

M=INT (RND(1)¥9) +1 
Y=INT(RND(1)¥9) +1 
IFQ(X, Y) < >@THEN1L19@ 

Q(x, Y)=77 

NEXT J 

REM *% OTHER VARIABLES ** 
AS=@G:REM ALIEN SHIPS SAFE 
AK=9:REM ALIEN SHIPS DESTROYED 
DE=@!:REM IFDE=1 THEN THE HUMAN 
Mo=G 

GOoTOS4¢ 
DATA1,2,1,4,1,6,1,8,1,19 
DATA1,3,1,5,1,7 
DATA1@,1,11,1,12,1,19,2,11,2,12,2 


DATA 


LOS se cs 
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You and your ever-patient computer take it in turn to 
roll a single dice, in this race along a numbered board. 
You move along the board the number of positions 
indicated by your dice, and then add the number’ that 
you've ended up beside to your total. 


Here's the game in action: 
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YOUR SCORE IS 0 AND MY SCGRE [IS 0 


PRESS ANY KEY TO ROLL YGUR DTE 


gana@~weEpPe @ ae @ es @ GG @ ce 2 @ ae ap ce a & & eo @ @& FF oF x cs 


VW & PP 
= MN 


> YOU ROLLED 3 


1432134234124314234 12 
g 


> YOUR TOTAL IS 3 < 


NOW MY ROLL... 


## STAND BY ## 


ee ee ee ee ee i i i i ee ht hd ee ee) 


De He 95 

6 

4 5 >> I ROLLED 5 

Sea Bee rata te 


1432134234124314234 12 


> MY TOTAL IS 1 < 


And here's the end: 


## STAND BY ## 
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1 6 5 

3 

2 2 

3 4 3 3 6 4&4 3 4 

ibe se 

3 

1) 2522) 3 be 1) Ne 6 a re 
4 5 >> I ROLLED 5 


Bet etasigr tat aia eae altar ok Nees eens 
143213423412431423412 


We eEnGe a Veo cane e te pita ie Diet tecee 


> MY TOTAL IS 10 < 
SO I'M THE WINNER 
BY 10 ¢ 


YOU SCORED 9 


The game ends when one of the players gets a total of 
more than nine. Any player going over the end of the 
Slide automatically Loses. 


This Listing gets you in the Marran Stakes: 


196 REM MARRAN RACE 

26 REM 

368 H=98:C=0: REM SCORES 

46 H1=G8:C1=G: REM STARTING POSITIONS 
9G ESB="19321342391249319234912" 

66 PRINT"{CLRi":2:PRINT:? PRINT 

768 GETZS: IFZS< >" "THENZS 

86 IFH=GANDC=S8THEN119 


?6 PRINT: PRINT"YQOU: "3s DS? PRINTTAB(4O) 5ES 
>PRINTTAB(6) 5; DS 
196 PRINT: PRINT"ME: "sASBSPRINTTAB(G6)5E 


S:PRINTTAB(6) 5 AS 

119 PRINT: PRINT"YOUR SCORE IS"H"AND MY S 
CORE I5"C 

126 PRINT: PRINT"PRESS ANY KEY TO ROLL YO 
UR DICE" 
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149 GETZ%: IFZ$=""THEN149 

159 PRINT: PRINTTAB(9);"## STAND BY ##" 
168 FORT=1TOS@@:NEXT T 

176 PRINT" ------------------------------ 


189 FORIJ=1TO3¢ 
198 D=INT(RND(1)*6) +1 
24@ PRINTD$3 

219 IFRND(1)>.?7THENPRINT 


2296 NEXT J 
2306 PRINT" +> YOU ROLLED"D 


24G@ PRINT"------------------------------ 
256 Hi=H1+D 
268 IFH1>21THEN75@2 


286 DS&=LEFT#(D%,H1-1)+"%" 

299 H=H+VAL (MIDS(ES,H1,1)) 

368 PRINT: PRINTDS:PRINTES: PRINTDS 

316 PRINT 

328 PRINTTAB(12)3"> YOUR TOTAL IS"H"<" 
338 IFH>STHENG6G 

349 PRINT" ------------------------------ 
358 FORT=1TO2@9@: NEXT T 

369 PRINT: PRINT 

378 PRINT"NOW MY ROLL..." 

38G PRINT: PRINTTAB(9?) $"## STAND BY ##" 
399 FORT=1TO5@@:NEXT T 

4@@ PRINT" ------------------------------ 
41@ FORJ=1TO3@ 

429 D=INT(RND(1)*6) +1 

439 PRINTD3; 

44@ IFRND(1)>.7THENPRINT 

450 NEXT J 

469 PRINT" >> I ROLLED"D 

47@ PRINT" --------------------- 
48@ Ci=C1+D 

499 IFC1>21THEN?29 


324 


500 At= y os 8s a S o 1 os 3s e so s 3s co s o o o e e 2 = REI zi : a 


SiG AS=LEFT$(AS,C1-1)+"S" 


26 C=C+VAL(MIDS(ES,C1,1)) 
330 PRINT: PRINTAS: PRINTES: PRINTAS 


3490 PRINT 

308 PRINTTAB(12)5 "> MY TOTAL IS"C"<" 

569 IFC>STHEN619 

5S7Q PRINT"--------------------- eer eee 
I83890 FORT=1TO2SOGO NEXT T 


398 GOTO6D 
66G REM KHKXKKKHHKH 


619 REM END OF GAME 

628 PRINT"SO I’M THE WINNER" 

636 PRINTTAB(7) 3 "BY"INT (1998%(C-H)/C) /1G 
9 

649 PRINT: PRINTTAB(7);"YOU SCORED"H 

658 END 

669 PRINT: PRINT"SO YOU’RE THE WINNER" 
678 PRINT 

689 PRINTTAB(7) 3 "BY" INT (199@*%(H-C) /H) /1@ 
ge 

699 PRINT: FRINTTAB(7)3"I SCORED"C 

798 END 

71G REM XXXXKHKE 

726 REM OVER RUN 

738 PRINT:PRINT"YOU WIN BECAUSE I OVER-R 


IN a3 
46 GOTOQ76S 


759 PRINT: PRINT"I WIN BECAUSE YOU OVER-R 
AN" 
768 PRINT: PRINT"FINAL SCORES: " 


?7G8 PRINTTAB(3)5 "YOU: "H 
80 PRINTTAB(4) 3 "ME: "C 


READY. 
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HALVING THE TON 


You and the stainless steel computer take it in turns to 
roll the dice, aiming for a total which exceeds fifty. 
Any number you roll (except one) is added to your total. 
If you, or the computer, are stupid enough to roll a 
one, the total is wiped out, and your tally goes back to 
zero. You must judge when to take a break from adding to 
your score, and give your opponent a chance. 


nag Pers to gy 
— A OP4. 18 mw, oe 
Wed sf/40 


Ree y eo 
ab ON 


Here'S a game in action, which should make it pretty 
clear how HALVING THE TON is played: 


326 


Your total is 17 
>> Press SPACE BAR to roll dice 


"E' key to end turn << 
Stand by to roll... 


=e G&G @& mer@eee@@ee@arwe & ae @&Se ewe Der ee w= & qua = = -o- ef eee @ fae a s&s as == oa» 


You just rolled 3 
Your total is 20 


>> Press SPACE BAK tu roll dice 
'E' key to end turn << 


I just rolled 5 
My score is i2 


I'll roll again 


n= moar ee wre awemrear eagerness Oo waa vr ae @w ee we @ ow @ aw & ae OF Ge we ae te & 


327 


I just rolled 4 
My score is 19 


PMV FOL again 


_ean @ere@wa a ew a ac fs @ a a eo oe a mS & &@ ae ee eo & a & @& & @& a a w & a f: a a 


i gust. relied. 5 


My score is 54 


Well, that's the end of the game. 


I guess I'm just a natural winner 
My score: 54 =Your score: 20 


And here's the Listing so you can do a Little halving on 
your own: 


16 REM HAIVING THE TON 

26 REM 

39 HS=08:CS=G 

46 PRINT"{CLRI"ZPRINT: PRINT 

28 IFHS>STHENPRINT: PRINTTAB(?) 5 "YOUR TOT 
AL IS"HS 


68 IFHS>59THENG72 

76 GETAS! IFAS< > ""THEN7ZS 

89 PRINT:PRINT" >> PRESS SPACE BAR TO R 
OLL DICE":FRINTTAB(12)"’E’ KEY TO END TU 
RN <<" 

99 GETAS 

196 IFAS< >" "ANDAS< >"E" THENSS 

119 IFAS="E" THENZ59 

120 PRINT"STAND BY TO ROLL...” 

13@ FORT=1TO19 

149 X=INT(RND(1)*6) +1 

156 IJS=RIGHTS(STRS(%) , 1) 

168 IFASC(3J%) =49ANDRND(1)>.42THENIL4S 

178 PRINTTAB(2¥%) 3X 

189 NEXT T 

19@ PRINT: PRINT"------------------------ 
268 PRINT"YOU JUST ROLLED"™ 

218 HS=HS+x 

226 FORT=1TO59@: NEXT T 


2390 IFX=1THENPRINTTAB(S3)5 "SO YOUR SCORE 
IS NOW ZERO": HS=9 


24@ IFHS>STHENS@S 

259 CC=6:REM COUNTS ROLLS 

26@ CT=G:REM COUNTS THIS THROW’S TOTAL 
278 PRINT: PRINT"------------------------ 
289 PRINT"NOW I’LL ROLL..." 

296 FORT=1TO19 

39@ X=INT(RND(1)*6) +1 

31G IJ&B=RIGHTS(STRS(X), 1) 

32@ IFASC (JS) =49ANDRND (1) >. 62THENSOE 

33G PRINTTAB (2X) 5X 

346 NEXT T 

354 PRINT: PRINT"------------------------ 
369 PRINT"I JUST ROLLED"X:PRINT 

378 CS=CS+tX 

389 IFCS>@ANDX< >1THENPRINTTAB(13)3"MY SC 
ORE Is"cs 

398 IFCS>SSTHEN47S 

4g@ IFX=1THENPRINTTAB(8)3"SO MY SCORE IS 


NOW ZERO": CS=6: GOTOS9 
416 IFRND(1)>.89THEN4S3S2 
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426 


IFCS-HS>1S0RCT< SORCCY 2ZORHS>42THENPRI 


NTI PRINT"I’LL ROLL AGAIN": FORT=1TO49@: NE 
AT. GOTO276 


43g 
44g 
459 
44D 
479 
4386 
498 


ME. . 


IGS 
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PRINT: FRINTTAB(6) 5 
FORT=1TO4966:NEXKT T 
GOTOS59 

REM HHKKKKEKKEKE 
REM END OF GAME 
PRINT: PRINT 
PRINT"WELL, THAT’S THE END OF THE GA 


PRINT: PRINT 
IFCS=HSTHENS?/©@ 
IFCS>HSTHENPRINTTAB(3)5 "I GUESS I’M 


"YOUR TURN..." 


JUST. A NATURAL WINNER" 


V25 


IFHS?>CSTHENPRINT"IT SEEMS YOU WERE L 


UCKY THAT TIME" 


are S 4] 
249 


II 
JOD 


378 
V8G 


he 2) 


PRINT: PRINT 
PRINT"MY SCORE: "CS,"YOUR SCORE: "HS 


END 
REM XXHKKKKHH 


REM DEAD HEAT 
PRINT: PRINT 


PRINT" IMPROBABLE AS IT MAY SEEM, THI 


S GAME" 


629 
"HS 


PRINT"HAS ENDED WITH US BOTH SCORING 


READY. 
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CUBE OF ELEUSIS 


A religious cult, the Eleusian Mysteries, flourished 
around Eleusis in ancient Greece. It sprang from an 
agrarian fertility cult which originated around 600BC. 


Initiation into the cult required the newcomer to 
undergo a series of trials. In this program, we re-enact 
one such trial, in which the neophyte's mental ability 


is tested. 
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You are handed a cube, fashioned of a clear, amber-Like 
solid. You are told that the cube contains three gems 
which are invisible to the naked eye. You have to 
concentrate your mental energy beam on a particular part 
of the cube, and then deduce —- if your mental energy 
beam emerges or not from the opposite side — where the 
three gems are Located. 


I made a cube out of cardboard to write this program, as 
I found it of immense help in visualizing the position 
of the ‘gems! within it. You might Like to do the same. 


The computer screen shows you a picture of the cube's 
faces ‘unfolded’ as follows: 


LEFT FRONT RIGHT BACK 
hee 3 fe 3s Be. Ae ae 2 
B56. 56: 360 5. He (6.55 4 
T2898 Gr 98s i 9G: 7 

BASE 

7 8 9 

4 5 6 

1253 


You are told how many mental energy rays you have Left, 
and are asked to say which face of the cube you will 
concentrate on (entering a four if you think you know 
where the gems are Located): | 


<®> YOU HAVE 20 RAYS LEFT <#> 


DO YOU WANT TO CONCENTRATE ON 

ij TOP, 2= FRONT, 3= LEFT, 4=- GUESS? 1 
CONCENTRATION AIMED AT THE TOP FACE 
WHICH NUMBER (1 TO 9)? 9 
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In this case, the player is concentrating on the’ top 
face, and sending a beam through at position 9. The 
computer reports the result: 


LEFT FRONT RIGHT BACK 
Vier ge 8) Boe Bree 
456 456 654 65 4 
(EF: aia Gants SARs aS Sees a alee’ a -ite/ 

BASE 

7.8 9 

4 5 6 

V2 3 


THE BEAM DID NOT EMERGE 


This suggests that at least one of the gems lies along 
that Line from 9 to 9, top to bottom (which, as you can 
see if you visualise the entire cube, takes in _ the 
numbers 3, 6 and 9 in the front face, and 3, 6, and 9 in 
the right face). 
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The player continues, entering beams until he or she is 
confident regarding the gems' Locations: 


TOP 

1 2 3 

4 5 6 

78 9 
LEFT FRONT RIGHT BACK 
Vee 3) dines) Se. ee Be 
456 456 654 65 4 
T0989: “08. 95-6 7 

BASE 

7 8 9 

4 5 6 

1 2 3 


<#> YOU HAVE 6 RAYS LEFT <*> 


DO YOU WANT TO CONCENTRATE ON 
1- TOP, 2= FRONT, 3- LEFT, 4- GUESS? 4 
TIME TO GUESS LOCATIONS 


ENTER CO-ORDINATES (3 NUMBERS)? 2,5,4 
>> LOCATED AT 2 5 4 << 

ENTER CO-ORDINATES (3 NUMBERS)? 7,8, 3 

ENTER CO-ORDINATES (3 NUMBERS)? 1,4,3 
>> LOCATED AT 1 4 3 << 


<< YOU FOUND 2 >> 


PRESS ANY KEY TO CONTINUE 


A few moves later, the player believes all the gems have 
been found: 
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<®> YOU HAVE 3 RAYS LEFT <*®> 


DO YOU WANT TO CONCENTRATE ON 
1- TOP, 2= FRONT, 3= LEFT, 4=- GUESS? 4 
TIME TO GUESS LOCATIONS 


ENTER CO-ORDINATES (3 NUMBERS)? 7,8,5 
>> LOCATED AT 7 8 5 << 

ENTER CO-ORDINATES (3 NUMBERS)? 1,4,3 
>> LOCATED AT 1 4 3 << 

ENTER CO-ORDINATES (3 NUMBERS)? 2,5,4 
>> LOCATED AT 2 5 4 << 


YOU FOUND THEM WITH 3 RAYS LEFT 


THEY WERE AT: 


1 4 3 
a 
bo Be 5 


When you're ready to be initiated into the mystery cult, 
enter the following program: 


16 REM CUBE OF ELEUSIS 

26 DIMA(9) ,B(9),C(F) ,M(3) ,N(3),0(3) 
38 REM 

46 BE=26 

9G FORIJ=1TO3 

69 Z=INT(RND(1) #9) +1°1IFA(2Z) =1THEN6S 
78 AlZ)=1 

SO Z=INT(RND(1)*¥9) +1: IFB(2Z) =1THENSS 
99 B(Z)=1 

1966 Z=INT(RND(1)*¥9) +1: IFC (Z)=1THEN1S2 


116 Cl(2)=1 
126 NEXT J 
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13G 
146 
135d 


169 
176 


GOSUB/SG 
GOSUBS?S 
PRINT"<*#> YOU HAVE"BE"RAYS LEFT <*>" 
PRINT"DO YOU WANT TO CONCENTRATE ON" 
FRINT* I= TOR; 2- FRONT, 3= LEFT; 4- 


GUESS” 


182 
196 
248 
216 
22 

236 
246 
256 
268 


2? 


430 
RGE" 
459 
476 
439 
496 
pea 8 
316 
32g 


ISG 
348 


INPUTZ 

IFZ< 1ORZ>4THENISS 
IFZ=4THENGOSUBSSS 

IFZ=4THENS3G 
PRINT"CONCENTRATION AIMED AT THE "3; 
IFZ=1THENPRINT" TOP” 5 
IF2Z=2THENPRINT "FRONT" 5 
IFZ=S3THENPRINT "LEFT" 5 

PRINT" FACE" 

PRINT"WHICH NUMBER (1 TO 9)" 
INPUT X 

IFAS 1ORK > 9 THEN2ZSS 

GOSUBS?7S¢ 

FL=9 

IFZ=2THEN33S9 

IFZ=3THENS 29 

FORJ=1TOS3 

IFX=M (J) THENFL=1 

NEXT J 

GOTO4359 

FORJ=1TOS3 

IFR=N(J) THENFL=1 

NEXT J 

GOTO45¢6 

FORIJ=1TOS 

IFX=0O(J) THENFL=1 

NEXT J 

IFFL=1THENPRINT"THE BEAM DID NOT EME 
-GOTOS5196 

PRINT" THE RAY CAME OUT AT THE "S$ 
IFZ=1THENPRINT "BASE" 
IFZ=2THENPRINT "BACK" 
IFZ=S3THENPRINT "RIGHT" 
PRINTTAB(?7) 5 "SECTOR "5% 
FORT=1TO1S5966°:NEXT T 

BE=-BE-1 

IFBE>STHEN1I49 

PRINT: PRINT"SORRY, YOUR TIME IS UP" 
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816 
82g 


83d 
349 


B38 
S6G 
876 
S3G 
BPR 
POS 
P1¢d 
P28 
P38 


P4606 
ey a) 


PRINT"YOU DID NOT LOCATE THEM" 
GOTO1119 

END 

REM KHHHKHHEHX 


REM DISPLAY 
PRINT" {CLRi"2PRINT 


PRINT" TOR" 
PRINT" 12 3" 

PRINT” 4 5 6" 

PRINT" 7? 39" 

PRINT 

PRINT" LEFT FRONT RIGHT BACK" 

PRINT" 123 123 S 240 S32 
PRINT" 456 456 654 65 4" 
PRINT" 7? 89 789 9 8? 9 8 7" 
PRINT 

PRINT" BASE" 

PRINT". 7 8 9" 

PRINT" 4 5 6" 

PRINT" { 225% 

PRINT: PRINT 

RETURN 

REM XX 


REM LOCATE 
FORJ=1TOS°M( J) =OIN(J)=8:0(5) =8: NEXT 


Mi=lcsNil1=1°01=1 
FORJ=1TO? 
IFAC J) =1THENM(M1)=J2>M1i=Mit+i 


IFB(J)=1THENN(N1)=JONI=Nit+il 
IFC (J)=1THENO(O01)=J:01=O1+1 


NEXT J 

RETURN 

REM HHHEKKHKHHKKHKHKHHE 

REM GUESS LOCATIONS 

PRINT"TIME TO GUESS LOCATIONS" 

PRINT 

CO=G 

FORT=1TOS 

PRINT"ENTER CO-ORDINATE (3 NUMBERS) " 
INPUTA(T),B(T),C(T?) 

IFACT) =M(1) ANDB(T)=N(1)ANDC(T) =0(1)0T 


HENPRINTTAB(S) ">> LOCATED AT"S$ 
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935 ITFACT)=M(C1)ANDB(T)I=EN(C1L) ANDC(T)=Q(1)T 
HENPRINTM(1)5N(01)5;001)5 "<< "2: CO=COt1] 


P60 IFA(T)=M(2) ANDB(T)=N(2) ANDC(T) =Q(2)T 
HENPRINTTAB(S) ">> LOCATED AT"; 
P65 TFACT)=M(2) ANDB(T)=N(2) ANDC (T) =0(2)T 
HENPRINTM(2)5N(2)50(2) >: CO=COt+1 
970 TFACT)=M(3) ANDB(T) =N(3) ANDC(T) =Q(3)T 


HENPRINTTAB(5) ">> LOCATED AT"; 

975 IFA(T)=M(3) ANDB(T)=N(3) ANDC(T) =0(3)T 

HENPRINTIN(3) 5N(3)50(3) :CO=COtl 

9389 NEXT T 

S99 FORT=1TO1LG9GG: NEXT T 

16@@ ILFCO=3THEN197@& 

19190 PRINT!:PRINTTAB(9)3"<< YOU FOUND"CO" 
>>"2PRINT 

1926 GETAS: IFAS< >" "THENIS72 

196390 PRINT: PRINTTAB(13) "PRESS ANY KEY TO 
CONTINUE" 

1648 GETAS: IFAS=""THENIS4¢G 

1959 PRINT"{CLR}" 

1969 RETURN 

1976 REM ** END OF GAME ** 

1989 GOSUBS99 

1999 PRINT:PRINT 

11968 PRINT”"YOU FOUND THEM WITH"BE"RAYS L 

EFT" 

1119 PRINT 

11390 PRINT 

114@ FORIJ=1TOS3 

1150 PRINTTAB(9) 3M(J)5N(7) 5007) 

1169 PRINT 


1176 NEXT J 
11898 END 


READY. 
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BIG BLUE 
ELEPHANTS 


In this particularly heartless program, you are a big 
game hunter on safari, about 250 years in the future. 
Your quarry is the elephant, bred at this Late stage in 
time only for preservation in zoos, or for rich people 
such as yourself to shoot. 


cLep d tae 
. : aoa fa t : F = coe . 
es PHANTS?. 55 ee See a pe SERA feed ar 


You are actually using a new anti-elephant Laser. in 
this game, but in deference to tradition, it is called 
an ‘elephant gun‘. 


339 


To give the elephants, which were born blue after years 
of selective breeding, a fighting chance, they are 
within a peculiar elephant pen. You cannot see _ the 
elephants. ALl you can do is fire your Laser into’ the 
compound, from one of the numbered positions around the 
edge, and then — from information as to where the Laser 
beam Left the compound - try to deduce where the 
elephants are. The only elephants you get are _ those 
whose position you can identify. 


The elephants are wearing lLaser-proof vests, which 
deflect all but shots which hit them right on target. 


When you first run the program, you'LL be asked how many 
elephants you want in the compound: 


How many elephants (2 to 10)? 5 
Elephant 1 is in place 
Elephant 2 is in place 
Elephant 3 is in place 
Elephant 4 is in place 


Elephant 5 is in place 


Next, a map of the compound from above will be shown, 
with the numbered positions around it: 


/234567\ 


9 Qa0a04a 


2D @ cee ous 3: 
33 oo 00000 8 40 


\556666/ 
890123 
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You then enter the number of the position from which you 
want to fire: 


From which compound gate 
would you like to fire 
your prized elephant gun? 5 


The laser beam is on its way. A fraction of a second 
Later it emerges from the compound, and from the number 
of the position from which it leaves the compound, you 
have to try and work out where the elephants are 
Standing: 


fA 3456 7N 
Oreste eter ca MIC 
Mls Sevatewewseees Co 
25 oe Q 32 


Hels, vegdeece ares) tO 
4g o 800 8 2 @ 56 


\556666 
890123 


You stot from 5 


V -> DEFLECTED <- 
> > ZAP! And the beam flies out at 16 


You keep firing, learning more about the elephants’ 
position with each shot: 
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That was shot 2 


/234567\ 
Do we ecditeereneves 10 
WT cee eters 224 


WOR aroees anes oe 
\556666/ 
890123 


You shot from 41 


> -> DEFLECTED <- 
V The beam left the compound at 58 


When you think you know where the elephants are, you 
enter a zero instead of a number: 


From which compound gate 
would you like to fire 
your prized elephant gun? 0 


ENTER GUESS 1 ? 37 
ENTER GUESS 2 ? 43 
ENTER GUESS 3 ? 20 
ENTER GUESS 4 ? 22 
ENTER GUESS 5 ? 36 
Guess number 2 i8 correct 
Guess number 3 is correct 


You've found 2 elephants... 
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Eventually, if you haven't found them all, you may want 
to give up. You do this by entering -1 for your shot: 


That was shot 6 


/234567\ 
Cae ee ee ee 16 
17 oe@0 0 oO 8 Oe oy 


\556666/ 
890123 


From which compound gate 
would you like to fire 
your prized elephant gun? -1 


The elephants were hiding at: 


21 35 28 43 20 


Here's a view of the compound from above, showing’ the 
numbers within it: 


mee Cees Geom ee Cee ee Ee ee ee es ee ee ee ee eee ee 
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Your laser beams follow strict rules when bouncing off 
the elephants' hides. If a Laser hits an elephant dead 
on, it will be absorbed, and not emerge from the 
compound at all. If it comes within one square of an 
elephant, the Laser beam will be deflected through 90 
degrees. Therefore, it there was an elephant at Location 
27, and you fired from 17, the beam would go to 18, then 
be bent through 90 degrees to 10 and emerge from the 
compound at Location 2. By Looking at the following 
sample shots, and noting especially the direction of the 
arrow heads (V meaning it is travelling downwards, < to 
the Left, > to the right and * travelling upwards) as 
well as words Like DEFLECTED, you should be able to work 
out just how the beams behave: 


/234567\ 


\556666/ 
890123 


You shot from 41 


> -> DEFLECTED <e- 
V The beam left the compound at 58 


Here's the Listing so you can tackle the elephants’ on 
their home turf: 


1@ REM BIG BLUE ELEPHANTS 

2G GOSUB1179:REM INITIALISE 

38 GOSUB959:REM PRINT COMPOUND 

49 GOSUB799:REM ENTER MOVE 

59 IFM=9THENGOSUB129: GOTO3@:REM GUESS 
6G IFM=-1THEN349:REM GIVE UP 

276 GOSUBS59:REM PRINT COMPOUND 
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8G GOSUB429: REM RESULT 
PO FORY=1TO1966: NEXTY 


196 
191 
1635 
116 
126 
136 
149 
159 
1469 
17S 
1389 
19 
2OS 
21¢ 


PRINTSPRINT"HIT RETURN TO CONTINUE" 
GETGS: IFGS<¢ >CHR#S$(13) THENI@1 

GOTO36 

REM EEK KHHKKKHHEKHHHE 

REM ENTER GUESS 

PRINT 

FORJ=1TOE 

PRINTTAB(J) "{CYN}ENTER GUESS"J 
INPUTC (J) 

NEXT J 

SC=4 

FORJ=1TOE 

FORK=1TOE 

IFC (J) =B(K) THENPRINT"GUESS NUMBER"J" 


IS CORRECT": C(J)=9:25C=SCt1 


2209 


2360 
2496 


258 
260 


2/7 


NEXTK 

NEXT J 

PRINT 

hM=-99 

FORY=1TOSS6: NEKTY 

IFSC“Y< SSTHENPRINT"{(GRN YOU’? VE FOUND"S 


C"ELEPHANTS...” 


280 
295 


3GB 
316 


3265 
33g 
34g 
359 
34D 
37GB 
386 
39 
Age 
Gig 
426 
43g 
44g 
456 
468 


FORY=1TO2696°NEAT ¥ 

IFSC< >ETHENRETURN 

PRINT" YOU HAVE FOUND THEM ALL!” 
PRINTS PRINT"WELL DONE!" 

END 

REM HHEKKKKHKKHHKKKHEK 

REM GIVE UP 

PRINT" THE ELEPHANTS WERE HIDING AT:" 
PRINT 

FORJ=1TOE 

PRINTB(J) 5 

NEKT J 

END 

REM HHEKHHHH 

REM RESULT 

Q=-1 

IFM< 9THENG=8 

IFM>S6THENQ=-8 
IFM=9ORM=170RM=250RM=330RM=410RM=49T 


HENQ@Q=1 
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476 
EFT 
439 
A968 
28D 
D1 
I28 


IFM+Q< 1SORM+tQ>SSTHENPRINT"THE BEAM L 
THE COMPOUND AT"M+tQiM=-99: RETURN 
FL=9 

FORT=1TO19 

IFD(T) =M+QTHENFL=EMN+Q 

NEXT T 

IFFL< SSTHENPRINT"ZAP! AND THE BEAM F 


LIES OUT AT"FL:M=-99: RETURN 


23a 
I4G 


M=M+Q 
REM DELETE NEXT FOUR LINES WHEN YOU 


GAIN PROFICIENCY 


ake) 7) 


368 
27GB 
389 
IPD 
6985 


IFQ=1THENPRINT"> "3; 

IFQ=-1THENPRINT" _"35 
IFQ=8THENPRINT"V "35 

IFQ=-S8STHENPRINT" “"35 

REM *** ABSORB *¥X**¥ 

IFA(M) =STHENPRINT" ...ABSORBED...":2M 


=-99 > RETURN 


619 
629 
639 
649 
6359 
666 


2] 
675 


REit *** REFLECT *** 

m=e/.T=a-F 

IFQ=S8THENY=9 

IFQ=-8THENXK=-7:Y=-9 
IFQ=1THENX=-7:Y=9? 

IFM+X< LORM+X>6490RM+Y< LORM+Y >64THENSS 


IFA (M+) =SANDA(MtY) =STHENPRINT" >>RE 


FLECTED<<":Q=-8:G0TO479 


639 


699 
7 BD 


REM **%* DEFLECTED *** 
IFM+xX< 1LORM+X > 64 THENZY19 
IFA(M+%) =9THENPRINT" @> DEFLECTED < 


@":GOTO749S 


716 
729 


IFM+Y< 1LORM+Y¥ >64THEN4S7S 
IFA(M+Y) =9THENPRINT" *#%> DEFLECTED < 


¥¥" 5 GOTOV6D 


736 
7498 


7435 
7368 
768 
7463 
776 


789 
79D 


GOTO97¢C 

IFABS (Q) =STHENQ=Q/8:GOTO7S565 
IFABS (Q@Q) < >BTHENQ=Q%S 

GOTO476 

IFABS (@) =STHENQ=-Q/8: GOTO?7¢ 
IFABS (@) < >STHENG=-Q%¥8 
GOTO0479 


REMEKHKKKKKHKKKEKKKKKE 
REM ENTER MOVE 
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S96 PRINT"{LT GRN3FROM WHICH COMPOUND GAT 
es 

S1G-PRINT"WOULD YOU LIKE TO FIRE" 
S290 PRINT" YOUR PRIZED ELEPHANT GUN" 
836 REM YOU CANNOT SHOOT FROM 1 OR 8 
890 REM OR FROM Ss? OR 64 

330 INPUTM 

866 IFM< 1 THENRETURN 

S78 FL=9 

S89 IF (M< 1MORM>S5) ANDM< > LANDM<K SSANDM< 257 
ANDM< >64¢THENFL=1 

S890 FORT=1TOQ19 

9969 IFM=D(T) THENFL=1 

P19 NEXT T 

926 IFFL=GTHENSS@S 

93068 RETURN 

PAG REM HEKKKKHKKHKKKKKKKE 

9590 REM PRINT COMPOUND 

769 PRINT" {CLR}" 

979 MO=MO+.5 

788 PRINT: PRINT: PRINT 


996 IFINT (MO) < >PRTHENPRINT"{CGRN THAT WAS 
SHOT" INT (MO) 


Va PRINT: PRINT 


O89 PRINT" {CYN} N234567/9" 
1919 PRINT" ee re a 

1929 PRINT" 9": 

193@ FORT=1T05 

1949 PRINT" .......-."3STRS(D(T+S)) 
1958 PRINT" "STRS(D(T))3 

1968 NEXTT 

197G PRINT" .......- 56" 

1986 PRINT" = =—s san eaueee " 

1998 PRINT" M556666N" 

1166 PRINT” B9G123 " 


1119 PRINT: PRINT 

1129 PR=MO 

1136 IFM<>-99THENPRINT"{PUR}YOU SHOT FRO 
M"MI PRINT 

1149 RETURN 

11598 END 

116G REM HKKEKKHKKKKKKKKKE 

1179 REM INITIALISE 

1189 POKES3281,9:POKES3289,9¢ 
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11°99 PRINT" CCLR?" 

1266 DIMD(39) 

1216 FORT=1TOQ39 

1228 READD(T) 

1230 NEXT T 

1299 PRINT"{YEL3HOW MANY ELEPHANTS (2 TO 
1)” 

12495 INPUTE 

1256 IFES 20RE>16THENI2495 

1269 DIMA(64) ,B(E) ,C(E) 

1276 FORZ=1TOE 

1286 M=INT  (RND(1)¥29)+18 

1296 FL=8 

1398 IFA(M) < >STHEN1I 289 

13190 FORT=1TO39 

13206 IFM=D(T) THENFL=1 

1336 NEXTT 

1349 IFFL=1THENI28¢ 

1356 PRINT 

13690 PRINTTAB(Z) "ELEPHANT"Z"IS IN PLACE” 


1376 B(Z)=M 

1389 A(M)=9 

13998 NEXTZ 

19690 M=-99 

141¢@ MO=6 

1429 PR=6 

1439 PRINT: PRINT"HIT A KEY" 


1431 GETGS: IFGS=""THENI431 
14949 RETURN 


1459 DATA17, 25,33,41,49 
1468 DATA16, 24,32, 49,48 


147 DATA1@G,11,12,13,14,15 
1489 DATAI8S, 26,34,42,59,51 
1499 DATAS2,53,59,55,47, 39 
1598 DATAS1,23 


READY. 
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ALPHABETICA 


This is a two-part game. The first part is very simple, 
‘but the speed with which you solve the easy probLem (to 
work out which Letter of the alphabet the computer is 
thinking of) dictates how many moves you'LL have to work 
out the solution to the second part. 


ep > ape mes a * OM ine | 8 
z ’ F . ‘? 5 Pi oe % = ae 
boa &.. ; : 
by i. 
R : wp hh, 
m 4 ! , Af ay 
f Ay ji ‘ a 
Lyd TF. , fi alli 
rs Day ff ‘ i] 
BW i /// Kas Su 
‘ oa, a a ORY, i 
mS As. ; ‘a a ¥, et 
Ci 1 i; 5 RN, “ \ = oA) 
I i ee i es has # ' fh 
at 


Gz \ 


ae Dy nae 


The second is a game somewhat Like Invicta's Mastermind, 
except that instead of you having to guess a code of 
colors, the code here is made up from the first six 
letters of the alphabet. 


The code could be ABCD, DEA or even FFFF, or any other 


of the enormous number of possible combinations of those 
six letters. 
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After you've entered your guess, the computer will rate 
your answer. A plus sign (+) is awarded for each Letter 
which occurs in your code and in the computer's’ code, 
but not in the right position. So if the computer’ was 
thinking of ABCA and you entered CEEF, you would be 
awarded one + sign. A correct letter in the correct 
position gains you an asterisk (*). So, if you had 
entered AEEF when the computer was thinking of ABCA, you 
would be awarded an * as a result. 


Here's the first part of the program in action: 


We'll start our game of ALPHABETICA by 
getting you to guess the letter of the 
alphabet I'm thinking of. The quicker 
you guess it, the more chances you'll 
have to solve the problem posed in the 
second part of the game... 


HREKRRRKKRRKERAFKRRKRARARRRERERRRRRKKRARRRRK XR 


OK, enter your guess number 1 ? A 
HHELERFFRKRERRARRRERARERFRERRRRKRRE RA % 2s 


No, it's not A 
Try closer to the end 
of the alphabet 


ESC RESESSES CESSES ESI ESSERE ESET SEER E ES S| 
OK, enter your guess number 2 ? Z 

PES ERE REESE ESSE SES ES SES ESE SESE SEE SEE YF | 
No, it's not Z 


Try closer to the start 
of the alphabet 


PBERRRRARBERESERESES ESE EES EEE ESE ER ERE RS ES 


OK, enter your guess number 3 ? G 


KREKKFREREFRRRERTRRRKKEKTRRKRERRTRRFRERRFRRRRRRA EE 
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No, it's not G 
Try closer to the end 
of the alphabet 


HRERARKERFERRKRRARARRRRRTRRFHRARARTTRERAERES 


OK, enter your guess number 4 ? M 


RES RRRAK RANKL AR RRARRRRRKERERRARAEKKRERRRLRZRE 


No, it's not M 
Try closer to the start 
of the alphabet 


KHFRXXKRRARRFKKRPRRKKKRKRRRBER RPE KEKKTRRRRRER ST H 


OK, enter your guess number 5 ? J 


KREXRRREKRRRTRRKREKKLRTRFRKRRRKEKKRRREKERKEAR TRAE 


No, it's not J 
Try closer to the end 
of the alphabet 


EREREGHRHREREREHREREREEREREREREREEE REE 
OK, enter your guess number 6 ? K 


No, it's not K 
Try closer to the end 
of the alphabet 


TRE RRRERREREZEESE SEER ERE RSE ER ESE SESE SESE SE 


OK, enter your guess number 7 ? L 
Yes, you're right. I was thinking of L 


(REPRE REREREREERERSESREER ESSERE RE SESE SS SS 


It took you 7 guesses 


RHRKRKRKKRKKAFKRKAKARKERARKFRRKREKRRRHFERARARAERAASE 
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That means you have 13 guesses to solve 
the second problem I'm going to pose 


And this is the second, much harder, part: 


HEERKRARRRKFHREREARKRKRTKRKKRKRRRAK REF RAERARRRHE F 


In the second part of ALPHABETICA, you 
have 13 guesses to work out a code made 
up of four letters - chosen from 

Avy Bay ees UD. ue Cameo 


REKFKRERHERKAFRRFEKHRARRFRKRRRTRRTRRFRKRRERKRRERES 


You'll get a+ for each letter which is 

in the code, but in the wrong position, 

and a * for each letter which is right, 
in the right position 


RREKHKRKRRFERKRRKRKFRRFRRRRRERRRRRTFRARKERRK ERE 


Choose from: A BCOD EF 
Enter guess number 1 

? ABCD 

ok Bek Bek Dek Sek Set el Rot Sak Sek Bel Bel Sa 
ABCD SCORED + + 


Enter guess number 2 

? BCDE 

“Rz*SB*S*S°S2°R8°R 7H 7 BSB OMB? 
BCDE SCORED + + 


Enter guess number 3 


? ABEF 
ot tek Bek Bek Bek Bek Bek Bel Bek Bel Bek Bel ia 


ABEF SCORED + + + 


Enter guess number 4 


? EFBA 
ot ben Bek Bek Bek Bel Del Sek Bek Bel Bek ek ia 


EFBA SCORED * *® % 
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Enter guess number 5 
? EDEA 
EDBA SCORED #® * # 


Enter guess number 6 
? FDBA 
FORA SCORED #* # 


Enter guess number 7 
2 oe Te aC 
EEBC SCORED #*® # # 


Enter guess number 8 

? FEBA 

AHORCHE THOR ORORO EOE OH OBO EM 
EEBA SCORED # # # # 


You did it in 8 guesses! 


The code was EEBA 


Stand by for a new game of ALPHABETICA 


This Listing will allow you to challenge your 
to a round or three of ALPHABETICA: 


1G REM HEKKEKKKKKKKKKKKKKEE 
26 REM ALPHABETICA 

36 REM SECOND PART OF GAME 
46 REM WRITTEN BY. D C OQWEN 
FH KEM HHEHKHKKHKHKKKKKKKKKKKEKE 
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computer 


69 PRINT" {CLR3":POKES3281,6:POKES3289,15 

7OB D=G:C=1 

89 A=65+t+ INT (RND (1) ¥26) 

96 PRINT: PRINT 

196@ PRINT"WE’LL START OUR GAME OF ’*ALPHA 

BETICA’ BY" 

1196 PRINT"GETTING YOU TO GUESS THE LETTE 

R OF THE" | 
126 PRINT: PRINT" ALPHABET I’M THINKING OF 
- THE QUICKER" 

1396 PRINT: PRINT"YOU GUESS IT, THE MORE C 
HANCES YOU’LL” 

1496 PRINT: PRINT"HAVE TO SGLVE THE PROBLE 

M POSED IN THE" 

158 PRINTS PRINTTAB(?7) "SECOND PART OF THE 
GAME..." 

169 GOSUB?4¢ 

1796 PRINT"{ORsOK, ENTER YOUR GUESS NUMBE 

R"C 

1735 INPUTZS 

199 IFASC (ZS) =ATHEN2Z7S 

269 GOSUB94S 

2190 PRINT"{CYNGNO, IT’S NOT "352% 

226 PRINTTAB(4);"{PUR} TRY CLOSER TO THE 


239 IFASC (2%) <ATHENPRINT "END" 

235 IFASC (ZS) >ATHENPRINT "START" 

2499 PRINTTAB(12)3;"0OF THE ALPHABET" 

250 C=Ctil 

268 GOTO16¢G 

2790 PRINT"CYEL} YES, YOU’RE RIGHT. I WAS 


THINKING OF ";CHRS(A) 

289 GOSUB94S9 

296 PRINTTAB(8)3;"{GRN3IT TOOK YOU"C"GUES 

SES” 

3698 GOSUBS4S 

31986 CH=26-C 

328 PRINT"{LT GRN3THAT MEANS YOU HAVE"CH 
"GUESSES TO SOLVE" 

538 PRINT" THE SECOND PROBLEM I’M GOING 
TQ POSE" 

349 GOSUBS4SS 
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3358 


PRINT"{LT REDSIN THE SECOND PART OF 


ALPHABETICA, YOU" 


360 PRINT"HAVE"CH"GUESSES TO WORK OUT A 
CODE MADE" 

378 PRINTTAB(4) "UP OF FOUR LETTERS - CHO 
OSE FROM" 

389 PRINTTAB(19)"{YEL3A, B, C, D, E AND 
Eo 

399 GOSUBS4G 

496 PRINT" {CWHT}YOU’LL GET A + FOR EACH L 


ETTER WHICH IS" 


419 


PRINT" IN THE CODE, BUT IN THE WRONG 


POSITION,” 


426 


PRINT"AND A * FOR EACH LETTER WHICH 


IS RIGHT,” 


43 


44g 
459 


466 
47D 
436 
AOR 


IID 
J1G 


328 


ISG 
348 
IUD 
rato} 2] 
3/76 
33D 
IID 
6968 
619 
626 
6369 
649 
659 
669 
676 
680 
696 
78S 


716 


PRINTTAB(11)"1N THE RIGHT POSITION" 
GOSUB94@ 

DIMA(4) ,B(4) 

YS= fo on 


FORZ=1TO4 
B(Z)=INT(RND(1)*6+1) 
YS=Y¥S+tCHRSE (649+Bl(Z)) 

NEXTZ 

L=9 

PRINT" {GRNSCHOOSE FROM: A B C DE F" 
L=L+1 

PRINT" {CCYNSENTER GUESS NUMBER®*L 
INPUTAS: RS=XS 

IFLEN (XS) < >94THENSSS 

K=9 

J=K 

FORZ=17TO4 
AZ) =ASC (KS) -64 
B(Z)=ABS(B(2Z) ) 
IFA(Z)<>B(2Z) THEN669 
K=Ktl1 

A(Z) = 

B(Z)=-B(2) 
AS=RIGHTS (XS, (LEN( KS) -1)) 
NEXKTZ 

FORH=1TO4 

Zz=1 

IFACH) <>B(Z) THEN?49 
J=J+i 
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726 
738 
748 


Past 2] 
768 


B(Z)=-B(Z) 

GOTO/7S59 

IF2Z<4THENZ=Z2+1:GOTO79D 

NEXTH 

PRINT"{LT GRN} ¥CKCKCKCKCKCKCKCKECKCKE 


KOKCKCKCKECKCKCKC KC" 


7768 
780 
79D 
BOD 
819 
826 
S36 
849 
359 
Sé6G 
87h 


338q 


PRINT" {YEL}3 "RS" SCORED "3; 
IFK=STHENS29 

FORZ=1TOK 

PRINT" {OR}? #"; 

NEXTZ 

IFJ=STHENS69 

FORZ=1TOJ 

PRINT" {ORs +"5 

NEXTZ 

PRINT: PRINT 

IFK< 4ANDL< =CHTHENS39 
IFK=4THENPRINT"{CWHT}YGQU DID IT IN"L" 


GUESSES!" 


SoG 
PGBS 
P30 
P46 
96D 


PRINT" THE CODE WAS "3S 

GOSUB?S4S6 

RUN 

FORQ=1T01266° NEXTQ 

PRINT " CCYN FXXKHKKKKEKKKEKKKKKEKKKKKKEK 


KKEKKKEKEKHKKKKKKHE" 


976 
93a 


PRINT 
RETURN 
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BURSTING CLOUDS 


Once again you are being bombarded by aliens. But this 
time, the aliens have banded forces with other aliens, 
so a multitude of strange races are about to rain down 
upon you. 


You are in an armored tank on the earth's’ crust. 


Beware. Not only do the aliens move slowly downwards, 
but they can also move horizontally once they've Landed, 
and may even burrow into the ground. Beware of the acid 
rain. As you rid the sky of one race, a new, different 
one will replace it. Some of the races do not’ move 
downward, but are happy instead to move across’ the 
screen, firing down at you. 


Your controls: 
J —- rotate tank Left 
K -— rotate tank right 


Spacebar — fire your cannon 


Beware of the acid rain as you defend our earth. 


@ PRINT"CCLRSPLEASE WAIT FOR THE COUNT T 
GO REACH > 137 5." 


1 FORX=192TO266:PRINTX-19135" "$ 
2 FORY=68TO63: READA: POKE2948+K¥69+7Y,ASNEX 
Ts NEXT 


5 POKE659, 129 
6 SC=1924:CL=55296 
7? QW=4G:GV=1 
19 POKES3281,9: POKES3289, 4: PRINT" {CLR}" 
8 Pokk2o2 
47, 224:X%=128 
7G V=532498: POKEV+21, 255! POKEV+29, 255 
88 POKEV+464, 15: POKEV+45, 2: FORA=1TU6: POKE 
V+A+38,A:NEXT 
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i9@@ PRINT"{HOME}<CUR 


{CUR 
{CUR 
CCUR 
{CUR 


DN TCUR 
DNS {CUR 
DN}(CUR 
DN?( CUR 


DN; (CUR 
DN3<{( CUR 
DNF (CUR 
DN} (CUR 


DNS {CUR 
DN; {CUR 
DN3{CUR 
DN {CUR 
DNC RVS 


DN>fCUR 
DN (CUR 
DN? (CUR 
DN} {CUR 


DN 3 
DN 3 
DIN 3 
DNs 


CNS IGY S53 


116 FORA=1994TG2623:POKEA, i466: FOKEAtS427 
2,97:NEXT:Z=3:AL=227:GOTOQ114 

112 IFAL=228THENAL=232 

113 IFAL?+236THENSSOE 

114 ape eerie oe FORA=2649TO2945 
L:NEXx 

115 Saeasivia eco ee 
116 IFQW? 1 26THENQW=129 

96 POKEV+15, i197: POKEV+14, x 

i3G B=460: D=89:F=166:H=129:J=149:L=149 
19498 A=INT(RND(1)*¥299) +39: C=INT(RND(1)*¥29 
G)+3G:E=INT(RND(1)¥299)+39 

15368 G=INT(RND(1)*¥299) +30: I=INT(RND(1)*2¢0 
G)+3OG:K=INT (RND(1)¥266)+3¢0 

49° GOTO2gga 


IGG REM **% INPUT ** 

SGi IFAS=@ANDRND(1) >. 8STHEN699G 
592 IFAS? 1 THEN6629 

~83 IFSA=MGANDRND(1)>.S8THEN6599 
284% IFSA?>1THEN6529 
395 IFAA=GANDRND (1) > 
396 IFAA+1ITHEN6629 
S87 IFSS=G9ANDRND (1) >. 8THEN6798D 

3993 IFSS?1THEN6G729 

216 GETAS 

Sil POKEV+12,196:POKEVt+13,19¢ 

512 IFS=6THENG@=@+2:W=Wt2:AL=ALt1:GOTO112 
31S IFAS=" "THEN1LSOSS 

520 IFAS="JI"AND2Z2=1THENK=xX-19 

238 IFAS="J"ANDZ=STHENZ=2: POKE29497, 226:G 
OTO6959 
3499 IFAS= 
OTO49¢ 
238 IFAS="K"ANDZ=STHENX=XK+14 

569 IFAS="J"ANDZ=2THENZ=1:POKE2697, 225 
I7G8 IFAS="K"ANDZ=2THENZ=3: POKE2S47, 224 
69G IFX< 23 THENK=235 

619 IFXK?255THENK=255 


-POKEA,A 


» STHEN6659 


"K" ANDZ=1THENZ=2:POKE29497,226:G 
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420 
66 
228 

oak 99) 
7OS 
Y1G 


FOKEV+i4,x* 
JU=PEEK (V+31) AND1L2S3 


JP=PEEK (V+31)AND128: IFIJP=123THEN/Y9I9OS 
JT=PEEK (V+39) AND128 


JK=PEEK (V+3@) AND128! IFIK=128THEN796@ 
ONWEGOTO2@71, 2147, 2211, 2291, 2376, 244 


6 


1669 REM *** FIRE CANNON ¥X* 


1601 


POKES9276,9: FOKES4296, 15°: POKES42~/ 7, 


133: POKES4276, 129: POKES4273,17 


1695 
1919 
16269 
1G21 
1925 
1426 


P=PEEK (V+39) AND464 
P=PEEK (2847) 
IFP=225THENL199 
IFP=226THEN1I 299 
POKE2946, 228 
IFX+16>=255THENIG31 


1928 FORR=X%+16TOZS5STEPS: POKEV+13,198:PO 
KEV+12,R 

1929 M=PEEK (53278) AND64: IFM=64THENMM=1:G 
OTO3S8a 

1938 NEXT 

1931 POKEV+16, 64: FORR=16TO6SSTEFS 


1932 
1933 
1934 
19468 


19359 
119¢ 


1195 
1119 


POKEV+13, 198: POKEV+12,R 

M=PEEK (V+32) AND64: IFM=64THEN3S SOG 
NEXT !POKEV+16,9 
POKEV+12, 19: POKEV+13,19 

GOTO51¢ 

POKE 2646, 229 

IFX-18< 26THEN5S1@ 
FORR=X-19TO2@STEP-5!:POKEV+13,196:P0 


KEV+12,R 


1126 


M=PEEK (V+30) AND64: IFM=64 THENMM=2: GO 


TO3GhS 


113g 
1149 
115¢ 
1290 
1265 
1219 


NEXT 

POKEV+12, 19: POKEV+13,19 

GOTOS1¢ 

POKE 2946, 239 

IFX=255THENX=259! POKEV+14, X 
FORR=199TOS@STEP-5: POKEV+t12, X+3:POK 


EV+13,R 
1213 M=PEEK(V+3@) AND464: IFM=64THENMM=3: GO 
TOSGaS 


L215 


NEXT 
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1226 


1236 
2OGD 


2O1G 
2G26 


2I38 
2A31 
2649 
29356 


285% 
28/71 
20389 
2O9D8 
21908 


2126 
2136 


2146 
2145 
2146 

2147 
2130 
2169 
217g 
2136 
2196 
22968 
2265 


22196 
2211 


2226 


223969 
2246 


2259 
2266 


2276 
2286 


229h 
2291 
2312 
2326 
2338 
2349 
235¢ 


POKEV+12, 19: POKEV+13,19 
GOTOS1¢ 

REM *% MOVE ALIENS *¥* 

IFFL (1) =1THEN297@2 
IFA>XTHENA=A-@ 

IFA< XTHENA=A+G@ 
IFA>255THENA=255 
IFB>=269THENB=299 : GOTO2969 
B=B+W 


POKEV,A!:POKEV+1,B 
WE=1:GOTO596 
WE=G 


IFFL (2) =1THENZ146 

IFC >XTHENC=C-@ 
IFC<XTHENC=C+G@ 

IFC >255THENC=255 
IFD>=26@THEND=2969: GUTO2145 
D=D+W 

POKEV+2,C:POKEV+3,D 
WE=2:GOTOS5@3 

WE=9 

IFFL (3) =1THEN2219 
IFE>XTHENE=E-@ 

IFE< XTHENE=E+@ 
IFE>255THENE=255 

IFF >=2@@THENF=29@: GOTO2295 
F=F+W 

POKEV+4,E:POKEV+5,F 
WE=3:GOTOS595 

WE=9 

IFFL (4) =1 THEN2299 
IFG>XTHENG=G-@ 

IFG< XTHENG=G+ 
IFG>255THENG=255 
IFH>=2@9THENH=29@: GOTO228¢ 
H=H+W 

POKEV+6,G!POKEV+7,H 

WE=4: GOTOSG?7 

WE=9 

IFFL (5) =1THEN2375 

IF I>XTHENI=I1-@ 
IFI<XTHENI=1+@ 
IFI>255THENI=255 

IF J >=2GGTHENI=29@: GOTO237¢ 
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2360 J=jIt+tw 

2378 POKEV+8, I: POKEV+t?, J 
2375 WE=5: GOTOS6¢9 

2376 WE=9 

23890 IFFL (6) =1THEN2495 


2399 IFK>XTHENK=K-@ 

2499 IFK<XTHENK=K+Q 

2419 IFK>255THENK=255 

2426 IFL>=2G8THENL=296: GOTOZ449 
2439 L=L+tw 

2449 POKEV+19,K:POKEV+11,L 


24945 WE=6:GOTO393 
24996 WE=6 


2459 GOTOZZES 
3969 REM ¥*% ALIEN HIT ¥x* 

3G1@ AL=PEEK (V+3@) ANDI: IFA1L=1THENPOKE2S4 
§,231:U=1:GoTC498ea 

3928 AZ=PEEK (V+368) AND2! IFA2Z=2THENFOKEZS4 
1,231:U=2:GO0TO49g¢g 

3939 AS=PEEK (V+3@) AND4: IFAS=4THENFPOKE2S4 
2,231:U=3:GoTO4gaa 

3G4@ A4=PEEK (V+38) ANDS! IFA4=S8THENPOKE264 
3,231:U=4:GOTOdGaS 

3959 AS=PEEK(V+38) AND16: IFAS=16THENPOKEZ2 
G44, 231:U=5: GOTO4IGSS 

3968 A6=PEEK (V+3@) AND32: IFA6=32THENPOKEZ 
G45, 231:U=6:GOTOdG8G 

3979 IFMM=1 THENIS3e 

398@ IFMM=2THEN1L13¢6 

3999 IFMMS3THENL215 

49G@ REM ** IF ALIEN HIT THEN: X*% 

4996 FORT=1TO5S9: NEXT 

4G@? POKES4276, 9: POKES42964, 15: POKE5S42?77, 
159: POKE54276, 129: POKES4273, 199 

4Gi@ IFU=1THENPOKEV, 49: POKEV+t1, 19:U=9:2FL 
(1) =1:S=S+1:GO0TOS19 

4G2G IFU=2THENPOKEV+2, 74! POKEV+3, 19:U=9: 
FL(2)=1:S=S+1:G0TO51a 

4G3@ IFU=3THENPOKEV+4, 199! POKEV+tS, 1@:U=9G 
>-FL(3)=1:S5=S+1:GoOTO51¢ 

4G4@ IFU=4THENPOKEV+6, 139: POKEV+7, 19:U=6 
>FL(4)=1:S=S+1:GoOTO51¢ 


49350 IFU=STHENPOKEVtS, 1696: POKEVt9, 160°,U=9 
-FL(5)=1:5=S+1:GoOTos1i¢ 
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4966 IFU=6THENPOKEV+t19, 199: FOKEVt11,19:U 
=$:FL(6)=1:S=S+1:G0TO51¢g 

6GGG REM ¥¥ RAIN X*¥ 

6919 AS=1:AS=INT(RND(1)¥35) +3 

6920 FOKESC+AS, 32! AS=AS+QW!: FOKESC+HAS, 33: 
POKEAS+CL, 7 

6939 IFSC+AS>1824THENPOKESCtHAS, 32: AS= 
6949 GOTOS1S 

6599 SA=1!:SA=INT(RND(1)¥35) +3 

6528 POKESC+SA, 32! SA=SA+QW: POKESCtSA, 33: 
POKESA+CL, 7 

6538 IFSC+SA>1@24THENPOKESCHSA, 32: SA=G 
654G GOTOS1G 

6698 AA=1:AA=INT(RND(1)¥35) +3 

6628 POKESC+AA, 32: AA=AAtQW! POKESCHAA, 33: 
POKEAA+CL, 7 

6638 IFSC+AA>1S24THENPOKESCHAA, 32: AA=D 
6649 GOTO51¢ 

6788 SS=1:SS=INT(RND(1)¥35) +3 

6728 POKESC+SS, 32! SS=SS+QW: POKESC+SS, 33: 
POKESS+CL, 7 

673G IFSC+SS>1824THENPOKESC+tSS, 32: SS=G 


7498 GOTOS1G 
686 REM ** THE END **¥ 


7029 POKES4276,@ 

79398 FORX=255TOSSTEP-1:POKES4276, 129: POK 
E54278, 249: POKES4273, X! NEXT 

7849S POKE2647, 231:POKE54296,9G 

795G FORX=15TOSSTEP-1!:POKE54276, 129: PQKE 
54273,49: POKES4296, X 

7G6@ FORT=1TO26!:NEXTT! NEXT 

7878 POKES4276, @: POKES4296, 9: POKES4275,9 
7871 ME=ME+1! IFME=3THEN1 2999 

7675 IFGV=2THENPOKES4278, 9: POKE2947, 224: 
Z=3:G0TO9149 

7888 POKE54278,9:POKEV+t1, 19:POKEV+3,19:P 
OKEV+tS, 19: POKEV+7, 19: POKEV+9, 19 

7G@9O Z=3:POKEV+t1i1, 19:X=128!: POKE2947, 224 

716G IFGV=1THEN114 

889G REM ¥*% SPRITE DATA ** 

8619 REM **¥ TANK RIGHT ¥* 

882G DATAG,9,9,9,9,9,9,9,9,9,59,9,59,9,9,o 
19,59,;9,9,9,9,9,9,9,9,9,9,9,0 

8938 DATA15S, 249,99, 31, 248,9,31,255, 252,63 
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,252,9,255, 255, 128, 255,255,128 
8949 DATAZ5S5, 255, 224, 255, 255, 27249,149,S85, 
64,196,179,128,63,255,9,9 
S950 REM ** TANK LEFT *% 


8G6G DATAG,G,9,9,9,9,9,5,9,9,9,9,2,95,8,0 
,9,8,8,9,9,9,5,9,9,9,9,9,9,9,.9 ° 


SG7G DATAG, 31,246, 255, 255, 248,9,63,248,7 
,255, 255, 7, 255, 255,63, 255, 255, 63, 255, 255 
SGSG DATAIG, 179, 1649,5,85,88, 3,255, 299,0 

8199 REM ¥* BACK OF TANK ¥¥* 


811G DATAG,9,9,9,9,9,9,9,9,9,59,9,9,5,9,9 
19,9,09,8,89,9,9,9,9,9,9,9,9,9,4,95,9 

S128 DATAG,G,9,9,9,9,49,124,9,9,124,9,5,1 
24,9,1,255,9,1,255,9,3,255,128,1,131,9 


8138 DATA1L,131,9,9 
815G REM *¥* 1ST ALIEN ** 


S160 DATAD,9,9,9,9,9,59,9,9,9,9,59,5,59,5,o5 
,8,8,9,9,89,9,9,9,9,9,49,9,9,o 

S178 DATAG, 248,9,1,172,9,3,174,9,1,252,9 
72, 258,9,2,259,4,2,114,9,2,114,9 

8189 DATAZ,138,9,2,138,9,2,138,9,9 

S29G REM *¥* WAR HEADS ** 

S21G DATAG,9,9,9,9,9,9,9,9,9,5,8,9,8,9,G 
59,9,9,9,9,9,5,9,9,9,9,9,9,9,9,9,2 

S22G DATAG,G,64,9,1,224,9,9,64,9,9,5,95,05 
,9,9,8,9,9,9,89,9,9,9,9,9,9,9,9,9,¢ 


B23G REM KEKKHKKKKKKKKKEKE 


824 DATAD,9,9,9,9,9,9,9,9,9,9,9,9,8,9,@2 
G,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,@2 

8250 DATAD,9,.5,9,9,9,64,9,8, 249,9,8,64,0 
,9,9,8,9,9,9,9,9,9,9,9,9,65,9,9,9,2 

BZEG REM XXXKXKHKKHKKHKKKE 

8278 DATAG,9,9,9,9,9,9,9,9,9,9,9,9,8,9,o 
,32,8,8,112,9,8,32,8,9,32,o8 

828G DATAG,9,9,9,9,9,9,9,9,9,9,5,9,9,8,o 
,3,5,8,8,9,8,9,9,9,9,9,5,¢,9,8,9,9,9.@ 


8298 DATAG,9,9 
8396 REM ** EXPLOSION ** 

S319 DATAG,9,9,9,9,9,9,9,9,5,5,45,4,9,5,1 
2,68,9,33,9,0,4,33,9,9,12,8,34,161,9 
8328 DATA2D, 29,59,64,192,9,18,74,9,32,1,G 
54,146,9,9,9,9,9,9,9,9,9,9,9,9,49,49,9,9,9 
S338 DATAG,9,G 
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3344 REM **% 2ND ALIEN X¥* 

8359 DATAD,9,9,9,9,9,959,5,59,5,59,9,9,9,9,0 
,9,9,09,9,8,59,8,9,9,9,9,9,9,9,9,@ 

83649 DATAG,63,9,9,199,128,9,237,192,9,12 
7,128,9,63,9,8,63,9,9,76,128,8,64,128 
837G DATAG, 128,64,3,9,48,¢ 

S389 REM *¥* BRD ALIEN ¥* 

SIFG DATAS,9,9,5,5,5,5,9,9,9,5,9,9,5,9,5 
59,46,2,8,16,2,8,16,2,97,1494,2,97,144 
S49G DATAZ, 127, 144,2, 255, 298,3,158,112,3 
»39,48,8,39,9,9,39,9,9,39,9,9,63,o 


S491G DATAS,97,128,90,192,192,7,1283,129,90 
S420 REM x% 4TH ALIEN x 


S43G DATAG,9,9,9,5,9,9,9,9,9,9,9,9,9,9,G 
19,16,9,128,49,1,64,68,2,32,131,12,31,3 
S449 DATA12, 36, 128,99, 199,192,9,199,192,9 
563,128,9,31,9,9,32,128,9,49,128 

8459 DATAG, 49, 128,9,113,192,9,192,96,G,1 
92,96, 

8468 REM **% STH ALIEN *¥* 

847G DATAG,G,9,9,9,9,59,59,5,9,9,9,9,9,95,0 
:3,9,9,9,8,9,9,9,9,7,128,9,31, 224 

8489 DATAG, 115, 248,99, 243, 252, 1,255,254,3 
,255, 255, 3, 255, 255,98, 193,152,9,97, 24 
B49G DATAD, 946, 24,9, 96,24, 3, 2249, 248, 3, 224 
,248,9 

S599 REM *¥*% 6TH ALIEN ¥¥* 

S519 DATAG,9,9,9,9,9,9,9,8,9,5,59,9,8,9,0 
,9,8,89,9,8,9,9,9,9,127,9,9,255,128 

8528 DATA1,156,192,3, 221,224, 3,255,224, 1 
»255,192,09,255,128,9,127,9,9,128,12¢8 
S539 DATAL,9,64,2,9,32,2,9,32,7,9,112,0 
8559 REM ** PLANE ** 

8569 DATAG,9,9,9,9,9,9,9,9,9,5,9,5,49,95,o 
,9,2,9,9,6,9,9,14,9,9,26,9,9,58,15,255, 2 
So 

8578 DATAZS, 255, 259,63, 255, 259, 255, 255,2 
54,9,9,9,9,9,9,9,9,9,9,9,9,9,9,9,59,9,5,G 
3589 DATAG,.&.a 

8599 REM ¥* BOMB x* 
8698 DATAD,9,5,9,9,9,o 
59,9,9,9,9,9,9,9,9,95,o 


»Oy 
3 33, b | 
8619 DATAG,112,9,8,32,9,95,1 
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G,112,9,9,32,9,98,9,9,9,9,9,9,9,6,9,9,9,9 


PHAS 


PG1G 
PG28 


REM *% SECOND STAGE ** 
POKEV+21,128:S=@:GV=2 
POKE294@, 237: POKE2942, 237: POKE2944, 


237:POKE2941, 238: POKE29493, 238 


PB3B 
P1dG 


J) +25 


9116 


26:;E= 


P12e 


9130 
9149 


POKE2@45, 238 
@L=INT(RND(1)*15) +22 @2=INT(RND(1) ¥1 
@3=INT(RND(1)¥15) +2 
B=606!F=198: J=159: A=INT(RND(1)*290) + 
INT (RND (1) ¥299) +20 
I=INT(RND(1)*290) +2¢ 

C=9!D=91 G=G:H=9: K=G:L=9 

POKEV, A: POKEV+1, B: POKEV+4, E: POKEV+S 


,F:POKEV+S, I: POKEVt?9, J 


P1350 
9169 
9165 
P1176 
in ar | 


eivo 
Fi3sgd 


9181 
9185 
919 
92008 
921 
9?11 
9226 
9236 
9231 
924g 
9256 
9251 
9262 
9276 
S590 
9519 
9511 


951s 
P5205 


933 


POKEV+t21,255 

GOTOS59¢g 
IFFR(1)=1THENS175 
A=A-Q@1: IFA‘ 2GTHENA=259 
POKEV,A 


IFFR(2)=1THENSI185 
E=E-Q2: IFEX 29THENE=256 


POKEV+4,E 

IFFR(3) =1THENS219 
I=1-Q@3:IFI< 26THENI=25@ 
POKEV+&, I 
IFFR(1)=1ANDQ4=6THENS232 
IFQ@4=GANDRND (1) >. 8THENS 799 
IF Q4=1THENS 729 

IFFR (2) =1AND@Q5=@8THEN9 252 
IFQ5S=GANDRND (1) >. STHENSSSE 
IF@5=1THENSS29 

IFFR(3) =1ANDQ6=8THENS272 
IFQ6=GANDRND (1) >. STHENS99E 
IFQ6=1THEN9S926 

GOTO916¢g 

REM ¥% INPUT 

GETAS 

POKEV+12, 19:POKEV+13,1¢ 


IFAS=" "ANDPEEK (2947) =226THENIGDSGS 
IFAS="J"ANDZ=1 THENX=X-19 
IFAS="J"ANDZ=S3THENZ=2:POKE2S49/, 226: 


GOTO9690 


9348 


ITFAS="K"AND2Z=1 THENZ=2: POKE2@497, 226: 
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GOTO96995 


YS5G 
2300 
FS?7D 
FOOD 
FéE1LS 
Fa2g 
2668 


F476 
4) 


F698 
PA9s 
@G 

PA96 
P69? 
P7 GBD 
P?OBS 
9716 
9725 
9738 


P7468 
P3800 


73dS5 
9316 


932d 
9330 


9340 
P9GDG 


99GS 
PF1G 


P92DG 
PISA 


9P94AD 


IFAS="K" ANDZ=STHENN=X% +19 
IFAS="J"ANDZ=2THENZ=1! POKE2947, 225 
IFAS="K" ANDZ=2THENZ=3! POKE2947, 224 
IFX< 23THENX=23 

IFX>255THENM=255 

POKEV+14, x 

JU=PEEK (V+31) AND128 

JP=PEEK (V+31)AND128: IFJP=128THEN79D 


JI=PEEK (V+396)AND128 
JK=PEEK (V+39) ANDLI28: IFIK=12STHEN/SS 


IFS=3THENAL=227:GV=1:GOTO114 
GOTO917¢6 

REM ¥XKXKKHHK KKK 

POKE2641,238 

@4=1:C=At+3:D=Bt5 

D=D+19: IFD>2G5THENQ4=9: C=19: D=1@ 
POKEV+2,C:PQOKEV+3,D 

GOTO923¢6 

REM XXKKKEKK KKK HHH 

POKE2643,238 

@5=1:G=E+3!:H=F+5 

H=H+19: IFH>2@65THENQ5S=9! G=20! D=19 
POKEV+6, G!POKEV+7,H 

GOTO925¢ 

REM XXX KKKKHKKHKE 

POKE2945, 238 

Q@6=1:K=1+3:L=J+5 

L=L+1@: 1FL>295THENQ6=9!: K=39!L=19 
POKEV+19,K:POKEV+11,L 

GOTO9149 


19GSGG POKEZG46, 239 


19991 
, 138: 
19995 
19G1G 
KEV+1 
19929 
19932 
1994g 
19952 
19969 


POKE54276, @: POKES4296, 15! POQKES4277 
POKES4276, 129: POKE549273,17 
IFX=255THENX=259! POKEV+149,X 
FORR=199TOS@STEP-5!:POKEVt12,X+3:PO 
3,R 

M=PEEK (V+39) AND64: IFM=64THEN1I S969 
NEXT 

POKEV+12,19:POKEV+13,1¢ 

GoTo9529 
S1=PEEK(V+39) ANDI: IFS1=1THEN19299 
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1GG/76 
1998a 
G 

1GBSD 
15d1G8 
1G11¢ 
G 

1Gi2G 
19298 
1G256 
16389 
1G359 
1949G 
16450 
119606 
119196 


S2=PEEK (V+390) AND4: IFS2=4THENIG259 
SS=PEEK(Vt39) AND1I6:, IFSS=16THENIGDSS 


S4=PEEK(V+30) AND2: IFS4=2THENIO3SS9 


SS=PEEK (V+390) ANDS: IFSS=STHEN1S499 


S6=PEEK (V+39) ANDS2: IFS6=32THENIG45 


GOTO19936 
POKE2949,231:S=S+1:GOTO119G99 
POKEZ942,231:°:S=St1:GOTO11699 
POKE294949, 231:S5=S+1:GoTo1iggs 
POKE2941,231:GOTO119699 

POKE29643, 231°:G0TO0119966 

POKE2645, 231:GOTO11999 
FORT=1TOS9: NEXT 
POKES4276, 9: POKES94296, 15: POKES42?7? 


51950: POKES4276, 129: POKES4273, 199 


119626 


IFS1=1THENPOKEV, 39:;POKEVt1,196°:FR(1 


)=1°GO0TOPS525 


11939 


(2)=1: 


11942 


IF S2=4THENPOKEV+4, 89: POKEV+5S, 19:FR 
GOTOS5S29 | 
IFS3=16THENPOKEV+S, 139: POKEV+9, 19: 


FR(3)=1:GOTO9S29 


1195¢ 


IFSS9=2THENPOKEV+t+2, 20: POKEV+3, 19:04 


=G'C=140: D=269: GOTO9S29 


119660 


IFSS=8THENPOKEV+t6, 39:POQOKEVt?,19°:Q5 


=9:G=16:H=26: GOTO9S529 


11ig7¢ 


>Q4=8: 


11989 
120906 


IFS6=32THENPOKEV+1i9, 49: POKEVt11,19 
K=19:L=29:GOTO952¢ 

GOTO952¢ 
POKEV+21,9:POKE54276, @: POKE5S4296,@ 


> POKES4278, 8! POKES4277,@2 


1261¢ 
12926 


POKE54273,@ 
PRINT"{CLR}{WHTIWOULD YOU LIKE ANO 


[SERB oe Cet As 


12946 
12659 


12969 


READY. 


IFAS="N" THENEND 
IFAS< >" Y" THENIL263¢2 
RUNS 
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GO FISH 


The computer plays a mean hand in this’ electronic 
version of the well-known card game. The aim of the game 
is to build up a series of 'books', where a book is all 


four of a particular card (such as four Aces, or four 
nines). 


You start the game with five cards each. You can see 
your cards but (of course) you cannot see the computer's 
hand. The two players take it in turns to ask their 
opponents for a particular card which they need to help 
build up a set. If the player being asked does not have 
@ requested card, the 'asker' tftust GO FISH (that is, 
select a card from those which have not been dealt). 
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Here are the first few exchanges in one game I played: 


Your cards: 
13 6 4 11 10 


Do you have a 5 (Y or N)? N 

I must go fish 

What card do you want? 13 

I do not have one. You must go fish 
Your card is 6 


You have 0 books 
I have O books 


Your cards: 
yh 6 6 10 11 13 


Do you have an 8 (Y or N)? N 
I must go fish 

What card do you want? 6 

I have one] 


You have OQ books 
I have OQ books 


Your cards: 
h 6 6 6 10 11 13 


Do you have a 13 (Y or N)? Y 
What card do you want? 4 


I have one! 
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You have 0 books 
I have 0 books 


As the game continues, the number of cards each of you 
holds naturally increases. The computer helps you by 
keeping your hand in order: 


Your cards: 
2 3 4 4% 5 6 6 6 8 9 9 YJ 11 
11 11 

Do you have a 1 (Y or N)? N 

L must go fish 


What card do you want? 6 


I do not have one. You must go fish 


Your card is 10 


You have O books 
I have O books 


Your cards; 
2 3 4 4&4 5 6 6 6 8 9 Y YJ 10 
11 et ct 

Do you have a 10 (Y or N)? Y 

What card do you want? 11 

I do not have one. You must go fish 


Your card is 13 


You have O books 
I have O books 
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In due course, you'll start forming 'books' (groups of 
four similar cards): 


Your cards; 

2 2 2 3 3 3 3 6 6 .6:76-9- 9 
Do you have a i (Y or N)? N 
‘I must go fish 

What card do you want? 2 

I do not have one, You must go fish 
Your card is 5 


You have 3 books 
I have 2 books 


The game ends when all the books have been formed, or 
the time Limit has been exceeded: 


We've run out of time, so 
that's the end of the game... 
and it's a draw 


My cards; 


1 4+ 1 1 4 4H H FY 8B 8B B 8B 1410 
10 10 10 12 #12 12 12 13 #13 «13 
13 


= AN 
“ NM 
=~] 
~] 
—“ UJ 
\O 
We) 
\O 
WO WN 
ik 
— 
Pea 
— 
— 
oar 
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When you're ready to forgo pasteboard for the electronic 
equivalent, hitch your computer to the following 
program, and wait for it to do the Micro Shuffle: 


16 REM GO FISH 

26 GOSUB1286:REM INITIALISE 

36 REM *** INITIAL DEAL *x** 

46 FORJ=1TOS 

38 C(J)=A(T) 

68 H(J)=A(I+5) 

768 NEXT J 

S86 REM **%* MAJOR GAME LOOP *** 

99 PRINT"{CLR}"!PRINT!: PRINT 

196 HZ=9 

116 PRINT"YGUR CARDS: " 

129 FORJ=1ToO52 

136 IFH(IJ) < }@THENHZ=HZ+1:PRINTH(3I) 3 

149 NEXT 

159 REM *** COMP. CHECKS IT’S CARDS *x** 
169 CZ=6 

178 FORIJ=1TOS2 

189 IFC(J)< >@THENCZ=CZ+t1 

199 NEXTI 

26G TU=9 

218 TU=TUtI1 

228 IFTU=19@THENPRINTTAB(S3); "NO REQUEST" 
-GOTO419 

238 M=INT(RND(1)*¥C2Z) +1: IFC (M) =GORC (M) =LA 
ANDRND(1)>.2THEN219 

249 FL=6 

258 FORT=1TOCB 

268 IFC(M) =Q(T) THENFL=1 

270 NEXT T 

289 IFFL=1THEN239 


29H LA=C iM) 
368 PRINT:PRINT 


3106 PRINT"DO YOU HAVE A"; 

326 IFC(M) =SORC (M)=11THENPRINT"N"; 

330 PRINTC(M)"(Y OR N) "5 

34990 INPUTKS: IFKS< > "Y"ANDKS< > "N" THENS 49 
359 IFKS< >"Y¥" THENDSS 

369 J=G 

3790 J=Jti 
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38h 


IFH(J)=C(M) THENH(J)=@:C(C2+1)=C(M) 2G 


oToa42¢g 

398 IFI<HZTHENS7@ 

499 PRINT!:PRINT"I MUST GO FISH" 

418 C(CZ+1)=A(X) :X=X+1 

426 PRINT:PRINT"WHAT CARD DO YGU WANT" 

439 INPUTP: IFP<SORP>13THEN4G39 

44@ IFP=@THENPRINT:PRINT"YOU MUST SELECT 
A CARD":PRINT: GOTOS69 

45@ FL=9 

468 FORM=1TOHZ 

479 IFH(M) =PTHENFL=1 

489 NEXT M 

499 IFFL=@THENPRINT:PRINTTAB(7)3"NOQ CHEA 
TING! ":GOTO42¢ 

508 PRINT 

519 CC=G 

S28 CC=CCri 

539 IFC(CC)=PTHENPRINT"I HAVE ONE! "!H(HZ 
+#1)=C (CC) :C (CC) =: GOTO58¢ 

549 IFCC<TTTHENS22@ 

559 PRINT"I DON’T HAVE ONE. YOU MUST GO 
FISH" 

569 PRINT: PRINT"YOUR CARD IS"A(X) 

570 H(HZ+1)=A(X) :X=Xt1 

S89 REM *** PURGE ZEROES *** 

599 REM ¥** FIRST COPY ARRAYS *X** 

6998 TT=HZ!: IFCZ>HZTHENTT=CZ 

618 TT=TT+4 

626 FORM=1TOTT 

639 E(M)=C(M):C(M) =o 

649 F(M)=H(M) SH(M) =e 

658 NEXT M 

669 REM **¥* COMPUTER PURGE *** 

678 M=9:N=1 

688 M=M+1 

699 IFE(M)=@THENZ1¢ 

766 C(N)=E(M) :N=N+1 

716 IFM<TTTHEN689 

728 REM ¥*¥*% HUMAN PURGE *** 

73G M=9:N=1 

748 M=M+1 


7399 
768 


IFF (M) =STHEN??7?S 
HCN) =F (M) ¢>N=N4+1 
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7/78 IFM< TTTHEN?Y4SS 

789 REM *¥*¥* COPY ARRAYS AGAIN X*** 
79O FORM=1TOTT 

SOO E(M)=C(M) > C(mM) =G 

S190 F(M) =H(M) SH(M) =o 

3826 WEXT M 

3390 REM **¥* SORT INTO OQRDER *X*¥ 

co4G REM **¥* COMPUTER FIRST ¥#*¥ 

S50 M=G 

S60 FORJ=1TO13 

8708 FORL=1T0O26 

S86 IFEC(L)=JITHENM=M+1°:C(M)=J:E(L) =G 
39O NEXT L 

SGOG NEXT J 

9106 REM *** NOW HUMAN *** 

S26 M=d 

9308 FORIJ=1TO13 

9496 FORL=1T026 

9590 IFF(L) =JTHENM=M+1:H(M) =J:F(L) =o 
9690 NEXT L 

976 NEXT J 

936 REM *** ASSIGN, COUNT BOOKS *x** 
99S HB=6:CB=9 

1998 FORZ=1TOTT 

196106 IFC(2)=C(2Z2+1) ANDC (24+1)=C(2+2) ANDC(Z 
+2)=C (Z+3) ANDC (2) < SOTHENCB=CBt1. Q(CB) =C ( 
2) 

1929 IFH(2Z) =H(2+1) ANDH( 241) =H(Z+2) ANDH(2Z 
+2) =H(2+3) ANDH(Z) < >OTHENHB=HB#tl 
1936 NEXT Z 

1946 FPRINTSPRINT"YOU HAVE"HB" BOOK"; 
1950 IFHB<71THENPRINT"S" 

19355 IFHB=1THENPRINT 

19690 PRINT"I HAVE"CB"BOOK"; 

19676 IFCB< >1THENPRINT"S"” 

19675 IFCB=1THENPRINT 

1986 FORY=1TO196@G: NEXT Y 

16996 IFX<S3STHENSS 

1196 REM *** END OF GAME *X** 


111 
So" 


1129 


AME.. 


PRINT: PRINT"WE’VE RUN OUT OF TIME, 


PRINT: PRINT" THAT’S THE END OF THE G 
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1136 FORY=1TOI9S69O:NEXT Y 

1146 PRINT 

115@ IFHB>CBTHENPRINT"AND YOU’RE THE WIN 
NER!" 

11690 IFCB?HBTHENPRINT"AND I’°M THE WINNER 


Dn 
1179 IFCB=HBTHENPRINT"AND IT’S A DRAW. " 
1186 PRINT:PRINT"MY CARDS: "PRINT 

1198 FORY=1TO52 

1266 IFC(Y) < >STHENPRINTC(Y); 

12190 NEAT: PRINT: PRINT 

1226 PRINT"YOUR CARDS: "= PRINT 

1236 FORY=1TO52 

1249 IFH(Y)< >S@THENPRINTH(CY) 5 

1259 NEXT: PRINT: PRINT 

1266 END 

1270 REM HHKKKKKKKE 

128G REM INITIALISE 

1298 POKES3231,9 

1398 DIMC (56) ,H(56) ,E (56) ,F(56) ,A(S2) ,Q( 
13) 

13190 HB=6:CB=6:REM *BOOKS’ COUNT 

1326 X=11:7REM NEXT CARD TO DEAL 

13368 TT=8: REM NO. OF CARDS TQ CHECK 
1349 LA=6 

1350 REM MOSES/OAKFORD SHUFFLE 

13690 FORJ=9TOS1 

13768 K=INT(I/4) +1 

1386 A(J+1)=K 

13990 NEXTJ 


1499 FORJ=S2TO2STEFP-1 
49196 Z=INT(RND(1)¥J) +1 


192G H=A(Z) 2: AZ) =A(J) 
14530 ACJI)=H:INEXT J 
144G@ RETURN 


READY. 
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FOUR SQUARE 


This is an unusual board game, in which you have to try 
and possess aS many squares in a group of four as you 


can. This should be clear when you Look at the board at 
the start of the game: 
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My score: Q Your score: 0 


Q'mNmoaqw YS 


ENTER YOUR MOVE (LETTER, NO.)? D2 


The human has moved into H3 and the computer moves into 
E5. Next, the human moves into De: 


My score: 0 Your score: 0 


A a ee . 
B se 

C ae : coer ee 
D ees « ° 

E se @ C 

F er 

G eee oe 


Very shortly, the human looks Like getting a group of 
four squares, so the computer moves into D1 to frustrate 
that aim: 
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My score: 0 Your score: 0 


Q 798 WwW eS 
Qa e 
se 


ENTER YOUR MOVE (LETTER, NO.)? D3 


As the game progresses, the possibilities for success by 
both sides increase: 


My score: 1 Your score: 2 


A oe ee oe 
B - C HH » C 
C H HHH. . 

D CHHCCC 

E » HCOCCH C 
F © 8 ‘ ° 
G ° @ ete: eos 


ENTER YOUR MOVE (LETTER, NO.)? £5 
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Note that one particular symbol can be part of more than 
one group of four. For example, here you can see that 
the middle H is part of two groups of four: 


The computer keeps track of the totals as the game 
unfolds: 


My score: 4 Your score: 4 
12345 67 

A e 9 H H C 9 6 

B HC HHHCOC 

C H HOH AC EC 

D Co He oBs.Ge seesCe 3G 

E 5 (aa) (i ae Oven Coat = ame 

F H.-H, He cg, tC 

G HiiGeny. el vee Ge 


ENTER YOUR MOVE (LETTER, NO.)? A2 


A ge ohh SO en % 
B HC HH HC C 
C HR A HC eC 
D CHHCCCC 
E Jy HY late: Coma Oran Oey» Fags 
F Skim 9 WORE > ital» Gade man Ooms 
G H C C 


Until, finally, one player (in this case, the computer) 
proves victorious: 


My score: 6 Your score: 5 
12345 6 7 

A C H H H C H H 

B H C H H HC C 

C H H H HCO C C 

D CH H.-C e- .G 2 

E Heo G Ge Gr sas 6 

F Hea eh He Ce 3G. <¢ 

G H C H HC Cc C 


That's the end of the game 


And I'm the winner! 


When you're ready for a four Square battle, here's’ the 
Listing to allow you to do it: 


1g REM FOUR SQUARE 

26 GOSUBS5@:REM INITIALISE 
38 GOSUB732:REM PRINT BOARD 
4@ GOSUB64G:REM PLAYER MOVE 
59 GOSUB51@: REM ASSESS BOARD 
6@ GOSUB739:REM PRINT BOARD 
78 IFCO=49THENI3¢ 

8@ GOSUB219:REM COMPUTER MOVES 
99 GOSUB519:REM ASSESS BOARD 
168 GOSUB73G:REM PRINT BOARD 
11@ IFCO< >49THENGAG 

12H REM KHXHXKKKHK KH 

139 REM END OF GAME 


1490 PRINT: PRINT"THAT’S THE END OF THE GA 
ME" 
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ISG PRINT: PRINT 

169 IFHS*>CSTHENPRINT"YOU’RE THE WINNER! " 
1706 IFCS>HSTHENPRINT"ANDI’?M THE WINNER! " 
189 IFHS=CSTHENPRINT"WE SEEM TO HAVE COM 
E TO A DRAW!" 


1°98 END 
2OG REM HEKKKKKKHKHHHE 


219 REM COMPUTER MOVES 

220 PRINT"MY MOVE..." 

236 REM *#* WIN/BLOCK MOVE **#* 

246 MO=9 

208 J=C 

26G M=PG 

2/7G A=At1 

2389 IFACK) =JANDA(CA4+1) =JANDA(XKX+190) =JANDA ¢ 
X+11) =NTHENMO=X+11:°>GOTO97h 

2°90 IFRND(1)>.2°ANDJI=HTHENS29 

3G9G IFACK) =JANDA(%+16) =JANDACAt+11)=JANDA 
(K+1) =NTHENMO=X+1:GO0TO47¢ 

3190 IFRND(1)7.9°ANDJI=HTHENS3S9 

3206 IFACK) =JANDA(A+1)=JANDA(X+11) =JANDA ( 
4+10) =NTHENMO=K+19: GOTO479 

3398 IFA(X) =NANDA(X+1)=JANDA(X+19) =JANDA ( 
A+11)=JTHENMO=X% 2 GOTO479 

S40 IFX<67THEN27¢9 

3590 IFJI=CTHENJ=H: GOTO269G 

35698 REM *¥*#*% MIRROR MOVE *XX 

379 IFA(68-K) =NTHENMO=68-K:GOTO476 

339 REM **¥* RANDOM MOVE XX 

3°G K=9 

499 X=X+1 

4196 Z=INT(RND(1)#67)+1 

9290 IFA(Z) =NTHENMO=2: GOTO4/79 

430 IFX<SESGTHENSTSS 

446 PRINT: PRINT 

450 PRINT"I CONCEDE THE GAME CHAMP!" 

466 END 

479 REM *** MAKE MOVE *** 

489 A(MO)=C 

4°6 RETURN 

IEG REM KKEHEKKKKKEKEKE 

2190 REM ASSESS BOARD 

329 CO=68 

330 HS=G6:REM HUMAN SCORE 


381 


546 CS=@:REM COMPUTER SCORE 

550 FORZ=1TO56 

S68 IFA(Z) =HANDA(Z+1) =HANDA(Z+10) =HANDA ( 
Z+11)=HTHENHS=HS+tl 

378 IFA(Z) =CANDA(Z+1)=CANDA(Z+19) =CANDA ( 
Z+iit)=CTHENCS=CSt1 

S8@ NEXT 2 

599 FORZ=1TO6? 

698 IFA(Z)=CORA(Z) =HTHENCO=COF1 

618 NEXT Z 

626 RETURN 

SSG REM KHKKKKKKHHKK KKK 

649 REM ACCEPT PLAYER MOVE 

6549 REM ENTER @ TO END GAME 

668 PRINT"ENTER YOUR MOVE (LETTER, NQ.)"” 
665 INPUTBS 

6768 IFASC (BS) =ASC("O") THENIL4S 

680 IFLEN(BS) < >2ORASC (BS) <6SORASC (BS) >72 
THEN66G 

6909 K=19* (ASC (BS) -54) +VAL (RIGHTS(BS,1))- 
11¢ 

695 IFA(K) =67THEN66S 

78GB ACK) =H 

718 RETURN 

F2ZE REM KXKKKKHKHKKKE 

738 REM PRINT BOARD 

746 PRINT" {CLR}3":PRINT: PRINT 

738 PRINT"MY SCORE: "CS" YOUR SCORE: "HS: 
PRINT:PRINT 

268 PRINT" 1 23°45 6.7" 

776 FORJ=GTO68 

7868 IFAG*XINT(JI/19) =JTHENPRINT: PRINTCHRS ( 
65+INT(J/19))5" "32IF ISI THENPRINT" "3 
796 IFA(IJ) =ETHENS19 

SGG PRINTCHRS(A(J))35" "3 

816 NEXT J 

S26 PRINT: PRINT:PRINT 

83@ RETURN 

S4G REM KKXKKKKKKKKHHKKH 

856 REM INITIALISATION 

S66 REM 

S768 PRINT"{(CLR}"!:PRINT: PRINT 

S86 PRINT"PLEASE STAND BY..." 

89S DIMA(99) 
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99G E=-9:REM OFF BOARD 

9198 C=ASC("C"):REM COMPUTER PIECE 
920 H=ASC("H") REM HUMAN PIECE 
930 N=ASC(".") REM NOT FILLED IN 
949 FORI=1TO99 

958 A(J)=E 

946G Z=I-1G¥INT(I/19) 

978 IFZ=GORZ=S80RZ=9THENILSOS 

98G IFI>47THENIGSG 

298 ACJ) =N 

1999 NEXT J 

1919 RETURN 


READY. 
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IMPERIAL CASTLE 


You've been zapped away in a time machine, to Land in an 


isolated 


castle, in the year 1638. You have to try and 


get out of the castle safely. 


Here's the vocabulary you can use: 


N, S, E, W 
GO, MOVE 
GET, PICK 
KILL, FIGHT 
QUIT 

MELT 

DIG 

CROSS 
PRESS 

KISS 

OPEN 
INVENTORY 


Time to tackle the dangers of Imperial Castle. 


19 PRINT" (CLR "2 POKES3241,9:POKES3S239, 2 


196 
119 
120 
138 
135 
146 
14i 


REM XHKHHHKHHKHKHKHKHKHKHKHKHE 

REM ¥** MAIN ROUTINE *** 

REM HK HKIHHK HH HHH HHH HHH HH 
GOSUB299@:REM INITIALISE 
IFC$(3)=""THEN14G 

IFRO+13THEN144 
ONROGGSUB9G1G, 9958, 9199,9159, 9298, 92 


59, 9300, 9359, 949G, 9450, 95GG, P55G, 949G 


142 GOTO16¢ 


14949 IFROQ;+25THENI4S 
1945 2Z2=RO0-13 


146 ONZGOSUB9654, 9740, 9750, $490, 9850, S99 
G,9959, 19959, 19959G,1919G, 19150,19299g 


1497 GOTO16¢9 
143 IFRO?SSTHENIS2 
149° 2=RO-25 


158 ONZGOSUB1IG25¢0, 193908,193509, 194990, i1945 
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G,1G5G0,1G550, 19600, 1G4650, 19799 
il GOTO1LSS 


— 
cn 


1532 IFRO?4S9STHEN1S6 
Sak Z-RO 3S 
124 ONZGOSUBIGYSO, 199390, 19356539,19792,1895 


G,1199G,11956,11190,11156, 11280 


1235 GOTO166 

136 Z2=RO-45> GHZ2GOSUBI1I250,11239¢6,113559,11 
469 

160 REM 

£63 LTFRO=S$ANDCH (3) =" " THENISY 

179 IFC$(3)=""THENFRINT"COGORSIT IS TOO DA 
RE TO SEE ANYTHING. (LT BLU}":G0TO24¢ 


1SG GOSUBSGIG 
i9@ FRINTZ PRINT" (GRNIJ DIRECTIONS: "3 


2989 IFA(RO,1)4-9THENPRINT” {LT GRNSNORTH 

3 " H 

2Z1OG IFACRO, 2)4-SGTHENPRINT" CLT GRNSSQUTH 
ih] 3 

226 IFA(RO, 3) <38THENPRINT" {LT GRNSEAST, 
$3 3 

£359 IFA(RO,4)<3?90THENPRINT" {LT GRNIWEST. 


235 PRINT FRINT 
249 GOSUBISHS 


2590 PRINT" CHOME} {CUR 


< CUR 
{CUR 
{CUR 
{CUR 
{CUR 


zoo PRINT {RVs 


236 PRINT" iRVS 


DN (CUR 
DNS {CUR 
DN>7CUR 
DNS {CUR 
DN tTRVES 


2990 GOTO1LS35 


1GHE 
ig1G 
1926 
1G46 
1941 


1G42 
1943 


REM HKHHHHKHEK 
KH INPUT **% 
REM KEKHKKKHKKKEK 
INPUT "OK. 


REM 


DN Zt CUR 
DNSi{ CUR 
DN?< CUR 
DNS {CUR 


ON (GRMN > 


DNF {CUR 
DNst CUR 
DN>it CUR 
DNS (CUR 
DNs {CUR 


"os 
3 


ONFCLT GRIN: 


ONS (GRN 3 


WHAT NOW"; AS 


IFAS="N" THENAS="NORTH" 


IFAS="S" THENAS= "SOUTH" 
IFAS="E" THENAS="EAST" 
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DNF {CUR 
DNFCCUR 
DNSit CUR 
DNs{( CUR 
DN St CUR 


DN} 
DN > 
DN > 
DNs 
DIN s 


1644 IFAS="W" THENAS="WEST" 
1953 LS=LEFTS (AS, 2): IFLS="GO"ORLS="MO" OR 
LS="NO"ORLS="SO"ORLS="EA" THENLS9@ 

1955 IFLS="WE" THEN159¢ 

19546 IFLEFTS(A%S,4)="QUIT" THENFRINT: PRINT 
"{WHTJADVENTURE OVER, COWARD!!"!END 

1964@ IFLEFTS(AS,4) ="PICK"GRLEFTS (AS, 3) =" 
GET" THEN1 699 

1978 IFLEFTS(AS,4)="FIGH"ORLEFTS (AS, 4) =" 
KILL" THENL7 6S 

1675 IFLEFTS(AS, 4) ="MELT" THENSS9S 

1989 IFLEFTS(AS,3)="DIG" THEN1L8S9G 

1999 IFLEFTS(A%,5) ="CRUSS”" THENIS5@ 

1196 IFLEFTS(AS,5)="PRESS" THENL99SE 

1119 IFLEFTS(A%,4) ="KIS5" THENI95¢ 

11il1 IFLEFTS (AS, 4) ="GPEN" THEN?7996 

1112 TFRIGHTS$(A%,9) ="INVENTGORY" THENGOSUB 
6999: RETURN 

1i3@ PRINT: PRINT"{(GY 33S0RRY, BUT THAT C 
OMMAND DGES NOT COMPUTE{LT BLU}" 

1149 RETURN 

1549 REM XXX MOVE #**% 

i519 L#=RIGHT#(AS,4) :1FLS="EAST"ANDA(RG, 
3) =@THEN1L589 

1511 ITFLS="WEST"ANDA(RG, 4) =S@THENI589 
1512 IFLS="EAST"ANDRGO=13ANDCS$ (2) =""THENP 
RINT"YOU JUST FELL DOWN A PIT! ":END 

1513 IFLS="WEST"ANDRO=28ANDDI (3) < >LTHENP 
RINT"THERE IS A CAVED IN TUNNEL": RETURN 
1514 IFLS="WEST"ANDRO=45ANDPR< > 1 THENPRIN 
T"THIS DOOR CAN BE OPENED, BUT NOT BY A" 
1515 IFLS="WEST "ANDRG=4S5ANDPR< > 1 THENPRIN 
T" KEY": RETURN 

1516 IFLS="EAST"ANDRO=34ANDDI (1) =@THENPR 
INT"YOU NEED THE GOLD KEY."!:RETURN 

1517 L®=RIGHTS (AS, 5) 


1518 IFLS="NORTH" ANDRO=41ANDCS$(19)=""THE 
NPRINT"YOQU NEED THE CRYSTAL. ": RETURN 


1519 IFLS="NORTH"ANDRGO=46ANDDI (2) =GTHENP 
RINT"YGU NEED THE SILVER KEY.": RETURN 
15226 IFLS="NORTH"ANDA(RO, 1) =@THENILS86 
1539 IFLS="SOUTH"ANDA (RO, 2) =STHENISSS 
15490 IFLS="NORTH” THENRO=A(ROQ, 1) 

133568 IFLS&="SOUTH” THENRO=A (RO, 2) 
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1555 US=RIGHTS(AS,4) 

1569 IFRO=13ANDL$="EAST"THENPRINT"A ROPE 
EXTENDS ACROSS THE LONG PIT. ": RETURN 
1361 TFRO=149ANDLS="WEST" THENPRINT” THERE 
7S ONE SOLITARY ROPE ACROSS THE PIT" :R 
ETURN 

1565 IFLS="WEST" THENRO=A(RO, 4) 


1570 IFLS="EAST" THENRO=A(RO, 3) 
1375 RETURN 


135389 PRINT"{RVS ONSNO EXIT! {RVS OFF" 


1599 RETURN 
1696 REM ***PICK UP OBJECTS *xX** 


1694 IFRO=4THENI615 
1665 IFA(RO,5) <>1THENPRINT”" THERE IS NGTH 


ING TO PICK UP." 2: RETURN 

16198 IFCS$(3)=""THEMNPRINT"{OR31I CAN’ T SEE 
WHERE IT IS!{LT BLU?" RETURN 

1615 IFRO=39ANDZO=9THENPRINT”" THERE I5 A 

ZOMBIE IN THE WAY! !":2 RETURN 

1616 IFRO=19°ANDKI=STHENPRINT" THERE IS A 

SLEEPING PRINCESS THERE!!!" {RETURN 

1617 IFRO=31ANDWI=STHENPRINT"THE WIZARD 

HAS IT!" RETURN 

1626 IFRO=4ANDRIGHTS (AS, 7) ="LANTERN" THEN 
C$(3)=" LANTERN": GOTO1696 

1639 IFRO=9ANDRIGHTS (AS, 4) ="ROPE” THENCS ( 
2)=" ROPE": GOTO1696 

1699 IFRO=S3SANDRIGHTS$ (AS, 6) ="SHOVEL”" THEN 


C$#(1)=" SHOVEL": GOTO14696 

16595 ° IFRO=36ANDZ0=1ANDRIGHTS (AS, 8) ="DETE 
CTOR" THENCS(4)=" METAL DETECTOR”: GOTO169 
6 

1669 IFRO=S31ANDWI=1ANDRIGHTS (AS, 4) ="WAND 
"THENCS(S5)=" WAND": GOTO1696 

1678 IFRO=26ANDRIGHTS(A%, 4) ="GOLD" THENCS 
(6.=" A GOLD SACK": GOTO1676 

1675 ITFRO=26ANDRIGHTS (AS, 4) ="SACK”" THENCS 
(6)=" A GOLD SACK": GOTO1696 

16898 IFRO=21ANDRIGHTS (AS, 5) ="SWORD" THENC 
$(7)=" SWORD" -GOTO1696 

1699 IFRO=24ANDRIGHTS (AS, 6) ="HEATER" THEN 
C#$(8)=" HEATER": GOTO1L696 


1691 TIFRO=19ANDKI=1ANDRIGHTS(AS, 3) ="KEY" 
THENCS(97)=" SKELETON KEY": GOTO1696 
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1692 TFRO=23ANDCH=1LANDRIGHTS(AS, 7) ="CRYS 


TAL" THENCS$S(14)=" CRYSTAL”: GOTOQi676 

1693 IFRO-1IG6GANDDI (1) =1ANDRIGHTS$ (AS, 3) ="K 
Ey" THENCS(il)=" GOLD KEY": GOTO16%6 

1674 IFRO=44ANDDI (2) =1ANDRIGHTS(AS, 3) ="K 
EY" THENCS(12)=" SILVER KEY": GOTO1L696 


1655 PRINT"YQU ARE NOT ABLE TO GET IT!": 
RETURN 

16°96 A(RO,5) =6: RETURN 

1760 REM *#**¥ FIGHT / KILL 

1718 IFA(RO,5) 23 1THENFRINT"WHO DOG YOU WA 


NT TO "3463" YOURSELF! ": RETURN 
i7?2e IFRO=19°THENPRINT"SURELY YOU DON’T W 


ANT TQ KILL THE PRINCESS"! RETURN 
1738 IFRO=31THENFRINT"YOQU WANT TO "34%; " 
THE WIZARD. NOT A WISE MOVE. ":RETURM 
1731 IFRO=12ANDC$(5)=""ANDC#(7)=""THENPR 
INT"YGU MUST FIGHT THE WITCH DOCTGR” 
1732 IFRO=12ANDC$(5)=""ANDCS(7) =""THENPR 
INT"WITH BARE HANDS." 

1733 IFRO=12ANDCS(5) =""ANDC#$(7) =""THENFO 

RAA=1TO256@!: NEXT | | 

1734 IFRO=12ANDC$(5)=""ANDCS(7)=""THENPR 


INT"YGU DISAPPEAR IN A PUFF OF SMOKE": EN 
D 

1/735 IFRO=12ANDCS(7)<>""ANDCS$(5) =" "THENF 
RINT"YQUR SWORD WAS INEFFECTIVE. ":END 
1736 IFRO=12ANDC$(5)<2>""THENFRINT" THE WA 
MD THAT THE WIZARD GAVE YOU, HAS " 

17237 IFRO=12ANDC$(3S)<3""THENPRINT"KILLED 
THE WITCH DOCTOR. ":VD=1°RETURN 

1746 IFRO¢ +> SSTHEWRETURN 


17S9 IFCS$(?7)=""THENPRINT" YOU MUST FIGHT 
WITH BARE HANDS.” 
YOO IFCS(7)=""THENFORAA=1TO2S5S90O 2 NEXTIOPR 


INT"THE ZOMBIE HAS MUTILATED YOU! ":END- 
1778 PRINT"THE ZOMBIE LIES DEAD AT YOUR 
FEET.":Z20=1 

1789 RETURN 

18G9 REM XXX DIG **X* 

1819 IFCS(1)=""THENPRINT"YOU CAN’T DIG W 
ITH BARE HANDS! !!":RETURN 

1811 IFRO< >28ANDRO< >16ANDROXS P44 ANDROS 345 
THENFRINT"YOU JUST DUG A MASSIVE HGLE IN 
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THE? 


1siz2 


THENPRINT"GROUND AND FELL DOWN 


1813 
1314 
ARED 
1815 
1S2q 
DIRT 
Nl 
1825 
1339 
HAS 
RN 
1835 


A TILE IN 


1246 
1330 
13é0d 


THING TO CROSS 


ay ae: 


ITFROS -28ANDROS FIGANDRG< F495 ANDROS 745 
DE Send 
IFDI(S3) =1THENISIS 
IFRO-2STHENPRINT" (CC YNs YOUR 
AWAY THE CAVE IN! "2 DI(S)=1: 
IFDI(1)=1THENISES 
IFRO=16THENPRINT"{CCYNSON A FILE OF 
YOU SEE A GOLD KEY! ' "1 DI¢Ci)=1°RETUR 


HAVE CLE 
RETURN 


IFDI (2) =1THENLS35 
IFRO=44THENPRINT"CCYN: YOUR DIGGING 


EAPGSED A SILVER KEY) 1 bite —leReETU 


ITFRO=4STHENPRINT"CCYNIHIDDEN UNDER 
THE CORNER IS A BUTTON....” 
RETURN 

REM *¥** CROSS ROFE **¥* 

IFRO¢ FI SANDRO< 7 L4ATHENPRINT "TI 
Co ere URN 
IFCS$(2)=""THENPRINT"I SEE A VERY LO 


SEE NO 


G AND DEEP PIT." 


1S8¢ 


IFCS(2)=""THENPRINT" YOU CAN’ T CROSS 


IT WITHOUT THE ROPE.” : RETURN 


13899 
YOU 
1695 


1896 
1897 


1906 


197190. 
ING TQ PRESS 


1926 
1921 
Loe 
LZ 


PRINT"AT ONE STAGE YOU SLIPFED, 
MADE IT ACROSS SAFELY." 
IFRO=L4THENRO=A(RO,4) : RETURN 
IFRO=iSTHENRO=A(RO,3) >: RETURN 
RETURN 

REM ##*#* PRESS BUTTON *** 

IFRO¢< S4STHENPRINT"I CAN’ T SEE ANYTH 
Pte S RETURN 

IFAS="PRESS" THEN1LY3G 
LFRIGHT$ (AS, 6) ="BUTTON" THENI 925 
RETURN 

PFRINT" THE DOOR HAS OPENED 


BUT 


MECHANICA 


LLY" 2 PR=1:RETURN 


1?3¢ 
19749 


INPUT"PRESS WHAT"; AS 
IFRIGHT$S(AS,6)="BUTTON” THENIS25 


1745 PRINT"I’M NOT ABLE TO PRESS THE "3A 
S$: RETURN 
19350 REM **#*X KISS KX 


1960 


IFRO< SiFSTHENPRINT"I LIKE THE IDEA, 


BUT I CAN’ T SEE ANYONE. ": RETURN 


389 


76s 
ON 


1976 
E QF 


19680 


BACK 


1996 


TFKI=1THENPRINT"SHE GIVES YOU A SLA 
THE FACE! ":RETURN 


PRINT"I’?VE FAINTED. GiVe ME A COUFL 
SECONDS TO RECOVER!" 
FRINT"THE PRINCESS GIVeS YOU A KISs 
AND THANKS YQU FOR BREAKING THE" 
PRINT"SPELL THAT THE WITCH DOCTOR P 


UT HER UNDER, " 


Loot 


DOCTOR MAY HAVE 


Leo 2 


EMBER 


1993 
1994 


PRINT"SHE WARNS YOU THAT THE WiTCH 
MADE A VOODOO DOLL OF YOU 


PRINT"COME TO THINK OF IT, I DO REM 


GETTING SOME PRICKS HERE AND" 
PRINT" THERE" 


IFWI C1) =1THENPRINT"ACTUALLY, I DU R 


EMEMBEK SEEING A PERSON WHO RESEMBLED " 


19935 


IFWI(1)=1THENPRINT"A WITCH DOCTOR. 


I’M STARTING TO SCARE PMYSELEI Sb 


1996 
2OBDS 
216 
LILDG 
2838 


29406 
26568 


2069 
2B7 8 


2989 
SASS 


3G1G 
3828 
3G3G 
3H4G 


3GIDG 
3IBhB 


3876 
388 


SGI 
3106 


31196 
S128 


3136 
3146 


3135909 


Ki=1:RETURN 

REM ¥¥% INITIALISATION ¥** 
DIMA (47,5) :DIMCS$(12) 
FORB=1T04? 

FORC=1TO5 

READA(B,C) 

NEXT C 

NEXT B 

RO=1 

RETURN 

REM XXX KKK KHKHKKKKKE 

REM ¥¥*% ROOM DATA *¥**X 

REM XXX KKH HHH KEK 
DATAZ2,9,9,9,8:REM ROOM 1 
DATAS, 1,4,3,9:REM ROOM 2 
DATAG,9,2,9,4:REmM ROOM 3 
DATA6,9,43,2,1:REM ROOM 4 
DATA7,2,6,9,9:REM ROOM 5 
DATAS,4,9,5,@:REM ROOM 6 
DATA1S,5,9,9,@:REM ROOM 7 
DATAS,6,9,9,@:REM ROOM 8 
DATA11,43,9,8,1:REM ROOM 9 
DATA12,7,11,25,@:REM ROOM 19 
DATA13,9,9,19,@:REM ROOM 11 
DATAG,19,13,26,1:REM ROOM 12 
DATAG,11,14,12,9:REM ROOM 13 
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3165 
S175 
318d 
31°96 
3206 
3216 
3220 
3239 
3246 
323569 
32668 


327 
3536 


32d 
338H 


-~y 


SSL 
3325 
3 2) 
33405 
3550 
B3u68 
3376 
33398 
SSF 
3408 
S414 
3426 
3430 
3444 


3458 
54568 


34976 
34368 


P49 
3598 


IIADA 


DATA16,17,15,13,@:REM ROOM 14 
DATAZ@,17,18,14,@:REM ROOM 15 
DATAS,14,209,9,1: REM ROOM 16 
DATA15,9,9,14,9:REM ROOM 17 
DATAI9,21,9,15,9:REM ROOM 1s 
DATAG,19,4,2@,1:REM ROOM 19 
DATAS,15,19,16,8:REM RUGM 2a 
DATA1S,9,22,6,1:REM ROOM 21 
DATA24,23,9,21,9:REM ROOM 22 
DATAZ2.G,9,9,1:REM ROGM 23 
iil he G@,1:REM ROOM 24 


DATA26, 7,@:REM ROOM 25 
DATAG, ,L1ZREM ROOM 26 


DATA. aoe 25,28,@G:REM Room 27 
DA A3S3,35,27,29,9:REM ROOM 28 
DATAS2,32,28,39,9:REM ROOM 29 
DATA31,31,29,9,1:REM ROOM 39 
DATASS,39,32,9,1:REM ROOM 31 
DATA29, 29,4%,31,9:REM RAGM 32 
DATAS4, 28,34,9,9:REM ROOM 33 
DATA27, 27,37,33,9:REM ROOM 34 
DATA2S,36,9,9,1:REM ROOM 35 
DATA35,33,9,9,9:REM ROOM 36 
DATA41,34,38,39,9:REM ROOM 
DATA42,9,9,37,9:REM ROOM 38s 
DATAAS,9,37,9,9:REM ROOM 39 
DATAS,39,41,9,8:REM ROOM 4g 
DATA45,37,42,49,9:REM ROOM 
DATAG,38,9,41,9:REM ROOM 42 
DATA?,4,44,9,9:REM ROOM 43 
DATAG,@,9,43,1: REM ROOM 44 
DATAG,41,9,46,1:REM ROOM 45 
DATA47,@,45,9,9:REM ROOM 46 


DATAS,46,9,48,9:REM ROOM 47 


Lalla 
Qh) = 


37 


41 


REM KHEKKKKKKKKEK KKK KEK HKKHEKR KKK KE 
KREKKKKEKKKKKKKKKKKEKKKEKERE 
PRINTS PRINT" CVYELS##H (PUR; YQU CAN SE 


E tYELs##" 


IGG1 
IIGS 


BEAUTIFUL PRINCESS. 


PRINT 


ITFRO=17ANDCS(9) <7" "THENPRINT” CWHT3A 
SHE GIVES YOU A 


ISS": RETURN 


WOO? 


IFRO=SLANDCS (5) <>" "THENPRINT" CWHTFA 


SHIVERING WIZARD" : RETURN 
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SHG TFRO=12THENS929q 

S910 IFA(PO,5) =STHENPRINT”"CWHTESNOTHING S&S 
PECTAL{LT BLU} "2: RETURN 

5926 IFRO=4THENPRINT”"CWHTFA GLOWING LANT 
ERN” SRETURN 

3UG21 ITFRO=26THENPRINT" (WHTFA GOLD SACK." 
> RETURN 

IO22 IFRO=12ANDVD=1THENPRINT"{WHTFA DEAD 
WITCH DOCTOR": RETURN 

3929 IFRO=STHENPRINT"{WHT3A LONG PIECE CG 

F ROFE”": RETURN 


S38 IFC#(4)=" METAL DETECTOR” ANDRO=44TH 

ENPRINT"YQUR METAL DETECTOR" 

S931 I1FC#%(4)=" METAL DETECTOR" ANDRU=44TH 

Se Eee COOMERA bet ee TOR , 
OR" ANDRO=44TH 

ENFRINT"GF METAL BELOW YOUR FEET" 

S944 IFC#(4)=" METAL DETECTOR" ANDRO=45TH 

ENFRINT"{WHT} YOUR METAL DETECTOR” 

5941 IFC%(4)=" METAL DETECTOR” ANDRO=45TH 

ENFRINT"HAS FOUND SOME SQGRT” 

3942 IFC$(4)=" METAL DETECTOR" ANDRO=45TH 


ENPRINT"GF METAL BELOW YOUR FEET" 

S@350 IFROG=35STHENPRINT"CWHT3A SHOVEL” 

S@660 IFRO=SGANDZO=1THENPRINT"CWHTFA DEAD 
<OMBIE! " 

399870 IFRO=39THENPRINT”"{CWHT3A METAL DETEC 

TOR" 

3H88 ITFRO=3S1ANDWI=GTHENPRINT"CWHTSA FROZ 

EM WIZARD IN ICE" 

32999 IFRO=S1ANDWI=1THENPRINT"CWHTSA WIZA 

RD AND HIS WAND" | 

JIGG IFRO=21THENPRINT"{CWHTFA SWORD" 

5116 IFCS8(4)=" METAL DETECTOR" ANDRO=16TH 
ENPRINT”" {WHT} YOUR METAL DETECTOR" 

Siii IFCS(4)=" METAL DETECTOR" ANDRO=16TH 
ENPRINT"HAS FOUND SOME SORT" 

Siiz2 IFC#(4)=" METAL DETECTOR"ANDRO=16TH 
ENPRINT"GF METAL BELOW YOUR FEET" 

pee TFRO=19ANDKI=6THENPRINT "(WHT GA SLEE 

WG PRINCESS" 

3130 IFRO=19°ANDKI=1THENFPRINT"{WHTSA BEAU 
TIFUL PRINCESS":FRINT"A SKELETON KEY" 
~1496 ITFRO=24THENPRINT"{WHT3A PORTABLE HE 
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ATER" 
SiS@ IFRO=23ANDCH=6THENPRINT"{WHT3A FINE 
LY DECORATED CHEST" 


S160 TFRO=23ANDCH=1THENPRINT" CWHTSAN GFE 
MN CHEST" 

3165 IFRO=23ANDCH=1THENPRINT"{WHTSWITH A 
CRYSTAL IN IT" 


32170 ITFRO=23ANDVD=9ANDCH=1 THENPRINT”" (WHT 
7A VODGG DOLL WITH IT’S HEAD CHOPFED OFF 


Si8BG IFRO=23ANDVD=GANDCH=1THENFRINT"? THE 
VooDGO DOLL IS A REPLICA OF YOU’ ": END 


Si9SG IFRO=12ANDWI (1) =G@THENPRINT"CWHTISA W 
ITCH DOCTOR. HE HAS WHAT LOOKS LIKE” 
S208 LTFROQ=12ANDWI (1) =S8THENPRINT”"(WHTSA V 
GODOG DOLL. IT SEEMS TO RESEMBLE YOU! !" 
3265 ITFRO=12ANDWI (1) =S@THENWI (1) =1°> RETURN 
5246 ITFVD=1THENRETURN 

3216 IFRQ=12ANDWI(1)=1THENPRINT"A WITCH 
DOCTOR. AROUND HIM LAY THE REMAINS" 
3226 IFRO=12ANDWI(1)=1THENPRINT"OGF FINGE 


ons PIECES AND STRANDS OF 
{ " 


VLOG 


AILS 
IL49 


LD PATCH OW 


HAIR. YO 


IFRO=12ANDWI1 (1) =1THENPRINT"FINGER WN 
LGOK A BIT SHORT, AND YOU HAVE A" 
IFRO=12ANDWI (1) =1THENPRINT"SMALL BA 
YOUR HEAD!!* 


932245 TFRO=12ANDWI (1) =1THENPRINT"GQH NGO! ! 

I’D BE CAREFUL!" 

32598 RETURN 

6998 PRINTISPRINT"{OR;YOU ARE CARRYINGIWH 
4H 

5SH1G FORAA=1TOLE: PRINT" ("AA") "CBH(AA) 2 NE 

aT 

6926 PRINT”"{OR}"2PRINT"HIT ANY KEY{LT BL 

UF" 

6930 GETGS: IFGS=""THEN6930 

6949 RETURN 

“OOS REM *#** OPEN *** 

7G1G IFCH=LANDRO=23THENPRINT"THE CHEST I 


S ALREADY OPEN": RETURN 


7G2G 
IN 


IFRO< >23THENPRINT" THERE IS NOTHING 


HERE TO OPEN! "2: RETURN 
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7G25 IFCS(9)=""THENPRINT"<WHT}YGU NEED T 
HE SKELETCN KEY.” :RETURN 

7@3G CH=1 

7948 RETURN 

SOGG REM ¥¥* MELT ICE WITH HEATER X¥** 
SG1G IFRO< >3L1ANDC#(8) =""THENPRINT" {WHT 3W 
HAT IS THERE TO MELT IN HERE! ":RETURN 
SO2G IFCS(8)=""THENPRINT" YOU HAVE NOTHIN 
G TO MELT IT WITH! ":RETURN 

8925 IFWI=1THENRETURN 

8938 PRINT" THE ICE SLOWLY MELTS AND THE 
WIZARD BECOMES FREE." 

8949 WI=1:RETURN 

9996 REM **¥*% ROOM DESCRIPTION *xX* 

9G1G PRINT" {CYN}YGQU ARE IN THE ENTRANCE 
HALL OF THE” 

9926 PRINT"CASTLE. ALL AROUND YOU ARE OR 
IGINAL PAINTINGS BY PICASSO AND" 
9839 PRINT"VAN GOGH. THE CEILING IS FINE 
LY DECORATED. " 

99649 PRINT"ANTIQUE FURNITURE LINE THE WO 
ODEN WALLS." } 

9945 RETURN 

99590 PRINT"{CYN}COB WEBBS AND DUST FILTE 
R THROUGH THE" 

99668 PRINT"AIR. WHITE CLOTHS HANG LOOSEL 
Y OVER THE CHAIRS AND THE GLD GRAND PIAN 
G5." 

9978 PRINT"THE ARMOUR SUIT OF A DEAD KNI 


GHT STANDS STIFFLY IN 
ROOM us 


ONE CORNER OF THE 


9939 PRINT" YOU CAN STILL FEEL HIS PRESEN 

Cer 

PSSA RETURN 

P1iGG PRINT"{CYN? YOU ARE IN A DARK, SPOOK 

Y, CLOSET. MOTH EATEN CLOTHES STILL HANG 
IN HERE" 

91190 PRINT" THE SPIDERS OF THE CASTLE HAV 


E CERTAINLYFOUND A GOOD SPOT TQ NEST." 


9129 


LA STILL 


9136 


LAST 


Ss" 


PRINT"SMELLY SHOES AND A WET UMBREL 

REMAIN IN THE CLOSET." 

PRINT"OBVIOUSLY THE PROPERTY OF THE 
PERSON WHO DARED TO ENTER THI 
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9149 PRINT"CASTLE. THERE IS A SKELETON I 
N THE CORNER....." 

9145 RETURN 

9158 PRINT"{CYN} THIS ROOM HAS A VARIETY 

OF DIFFERENT OBJECTS, BUT MOST OF THE 
M ARE" 

9168 PRINT"EITHER DAMAGED OR BROKEN, PIT 
Vere 

9176 PRINT"IN THE WALL IS AN AIR VENT, F 
RQM WHICH SEEMS TO TRAVEL ALL AROUND TH 


9189 PRINT"CASTLE. YOU CAN HEAR WHAT IS 
GOING ONE -IN ANY OTHER ROOM. A SCREAM H 
As" 

9199 PRINT"JUST ECHOED THROUGH THE ALUMI 
NIUM VENT. I SUGGEST WE GET OUT OF HERE. 


9195 RETURN 
9288 PRINT"{CYN3THIS ROOM WAS DEFINATELY 
A TORTURE ROOM.OLD RUSTY CHAINS DANGLE 
ON THE" 
921G PRINT"BLOOD STAINED WALLS. A SKELET 
ON IS STILLHANGING IN CHAINS." 
9229 PRINT"A STRETCHING RACK IS PRESENT 
IN THE MIDDLE OF THE ROOM. DEAD SNAK 
ES” 
923@ PRINT"LIE IN ONE CORNER OF THE ROOM 
, NEXT TO ABUNDLE GF BONES." 
9249 RETURN 
9259 PRINT"{CYN3THIS ROOM LOGKS AND SMEL 
LS LIKE & MORGUETHERE ARE DEAD BODIES EV 
ERYWHERE" 
9268 PRINT"I DON’T PLAN ON BEING ONE OF 
THESE DEAD BEATS. LETS GET OUT OF HERE, 
FAST" 
9278 RETURN 

388 PRINT" {CYN} THERE IS NOT MUCH TO THi 
S ROOM. THERE ARE MAINLY TINS OF FOOD 
ON" 

9319 PRINT"THE SHELVES SURRGUNDING THE R 
oom." 

9328 PRINT"A LOT OF MICE ARE RUNNING ABU 
UT THE FLOOR. " 

933G PRINT"QUCH! ONE JUST BIT ME." 
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$349 RETURN 

F356 PRINT"{CYNINO DGUBT ABOUT IT. THIS 

ROOM WAS MEANT TO KEEP PEQPLE FROM ESCAF 
ING, " 

P3690 PRINT" THERE ARE SOLID STEEL BARS OW 
THE WINDOWS AND OOORS. " 

P3760 PRINT" THERE ARE BROKEN CHAINS SCATT 

ERED ALL GCVER THE FLOOR." 

PascG RETURN 

S4O0C@ PRINT" CCYNS THIS ROOM IS CHOC-A-BLOC 

K FULL WITH CAMPING EQUIPMENT. " 

7418 PRINT"ALTHOUGH MOST GF IT IS COVERE 
D WITH SPIDER WEBS AND DUST, YOU CAN 


ve 


426 PRINT"STILL MAKE GUT THE TENT, B.B. 

Q., SLEEPING BAGS ETC." 

P4308 RETURN 
99430 PRINT"{CYNSTHIS IS A VERY LARGE RGO 

mM. ARQUND YOU ARE MANY BROKEN PIECES @ 
=a 

P4606 PRINT" FURNITURE. A LARGE CANLDE LIG 

HT FITTING HANGS FROM THE FINELY CARVED 
ROOF” 

470 PRINT"A FEW DUSTY, BUT COLOURFUL FA 
INTINGS ARESUSPENDED ON THE WALLS." 

7486 PRINT" THIS ROOM IS A PART OF A LONG 
HALLWAY. " 

P4968 RETURN 

FO0OG PRINT"ICYNS THIS ROOM IS THE EASTERN 
MOST FART OF A LONG CORRIDOR. TO THE WE 
Ss. tor 

S314 PRINT"A VERY LONG HALLWAY. IT ALMOS 
T SEEMS NEVER ENDING. " 

75924 PRINT"ANTIQUE FURNITURE AND PAINTIN 
GS LINE THEWALLS. " 

F530 RETURN 

S350 FRINT"ICYNS THIS ROOM LOOKS LIKE AL 
ABORATORY. IN THE BACKGROUND IS A DARK 
FIGURE" 

9560 PRINT"SPILT LIQUIDS ARE DRIPPINGS O 


FF THE BENCHES. " 
9376 PRINT" IN FRONT QF YOU THERE IS A B 
GOK ON VaooODoOoTSm." 


7586 RETURN 
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9698 PRINT"{CYN} YOU ARE IN WHAT SEEMS Ta 
BE A GREEN HOUSE. " 

9619 PRINT" TO YOUR RIGHT THERE IS A VER 

Y WIDE AND DEEP PIT. ON THE OTHER SIDE Y 
ou" 

9629 PRINT"CAN SEE AN CPEN DOOR, BUT YOU 
AREN’T ABLE TO ’*CROSS’ THE PIT." 
9638 IFCH(2)=""THENS 649 

9635 PRINT"THE ROPE THAT YQU PICKED UP E 
ARLIER HAS STRETCHED ITSELF ACROSS THE F 
ie 

9426 FRINT"NOW ALLGWING YOU TO CROSS THE 
PIT AND ENTER THROUGH THE OPEN DOOR OG 
Ne" 

9637 PRINT"THE OTHER SIDE. ({(WHT}GOOD LU 
CK" 

9649 RETURN 

9659 PRINT"{CYN}TO YOUR LEFT IS A WIDE & 


ND VERY, VERY DEEP PIT. YOU CAN SEE YO 
UR ROPE" 


7669 PRINT" STRETCHED ACROSS IT." 


9679 PRINT" YOU ARE IN THE WESTERN ROOM O 
F THE CELLAR. * 


S689 RETURN 
77699 PRINT"YOU ARE NOW IN THE CENTRAL RS 


OM GF THE CELLARS. THERE ARE BOTTLES AWN 
dD" 

F716 PRINT"CASKETS EVERY WHERE..." 

97296 RETURN 

97598 PRINT"THIS ROOM HAS A GLASS WALL ON 


IT’S WEST SIDE. THROUGH THE GLASS YOU C 
AN” 


7696 PRINT"SEE A VERY DEEP PIT WITH A RO 
PE ACROSS 1 

9778 IFCS(S)<>""THENPRINT" YOU CAN SEE A 
WITCH DOCTOR FREEZING THE WIZARD IN ICE. 


7838 RETURN 

P3090 PRINT"ICYNSYOQU ARE NOW IN THE SOUTH 
ERN ROOM OF THE CELLARS. THIS IS WHERE A 
Li THE” 

93810 PRINT"BROKEN BOTTLES WERE KEFT. ” 
9826 RETURN 
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7356 PRINT"{CYN}YGU ARE NOW IN THE EASTE 
RN ROCHM OF THE CELLARS." 

7869 PRINT"IN THE AIR YOU CAN SMELL A BE 
AUTIFUL SCENT." 

SS?7O RETURN 

S996 PRINT"{CYN3 THIS ROOM IS VERY BEAUTI 


FUL, AS IS ITS CONTENTS. THERE ARE WOND 
ERFULLY" 


P91G PRINT"SOFT SILK CURTAINS ON THE WIN 
DOWS, A VERY SHINY BRASS BED" 

9926 ITFKI=STHENPRINT"GN WHICH LIES A VER 
y FPRETTIY PRINCESS." 

9?38 ITFKI=1THENPRINT"THERE IS A BEAUTIFU 
L BLONDE PRINCESS IN SILK STANDING IN" 
S949 IFKI=1THENPRINT" THE MIDDLE OF THE R 
oon. " 

99435 RETURN 


F9SOG PRINT" CCYN3 YOU ARE IN THE NORTHERN 


ROOM GF THE CELLARS. BIG CASKETS OF 
RUM" 

P9648 PRINT"ARE STACKED ONE ON TOF OF EAC 
H OTHER. " 


9979 RETURN 

19960 PRINT"{CYN}THIS ROOM IS OBVIOUSLY 
THE ARMOURY ROOM.GUN MUSKETS, SWORDS, AN 
DA LOT" 

19819 PRINT"OF OTHER WEAPONS HANG ON THE 
WALLS. IN ONE CORNER THERE IS A SOLID 
GOLD" 

19829 PRINT"CANNON FROM THE SHIP *EMPORE 

R Ir’" 

19838 RETURN 

19958 PRINT"{CYN3TO YOUR RIGHT IS AN OPE 

N FIRE PLACE. SETAROUND THE FIRE PLACE A 
RE" 

19969 PRINT"THREE CHAIRS. UNDER THE CHAI 

RS IS A LARGE SHEEP SKIN RUG." 

19978 PRINT"I FIND THIS ROOM VERY COSY.” 
19989 RETURN 

1919@ PRINT"{CYN}3THIS IS JUST ONE OF THE 
KING’S TREASURY ROOMS. " 

1911@ PRINT" SOMETHING FISHY SEEMS TO BE 
GOING ON HERE. THIS ROOM HAS RECENTLY 
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1912790 PRINT"BEEH DISTURBED. I CAN SEE TH 
E TRACES OF A WITCH DOCTOR....”" 

1Mise RETURN 

1915 PRINT"{CYNITHIS IS A VERY WARM RUG 


mM. THIS ROOM WOULD’VE SUPPL 

Lep: 

19166 PRINT* THE THERMOSTAT FOR THE REST 
GF THE CASTLE." 


1Giv7e RETURN 
1926008 FPRINT"{CYNSTO YOUR WEST YOU CAN SE 


E A CORRIDOR WHICH SEEMS NEVER ENDIN 
GG," 

16216 PRINT"TO YOUR LEFT IS ANOTHER VERY 
LONG CGRRIDOR. " 


1962298 RETURN 

19259 PRINT"{CYN}ALL ARQUND YOU 15 GOLD, 
LOTS OF IT. JUSTREMEMBER THAT I CAN’T C 
ARRY ALL” 

16268 PRINT"THAT IMUCH!”" 

1962790 RETURN 

196368 PRINT"{CYN} YOU ARE NOW Iii THE CENT 
RAL ROOM OF THE LONG CORRIDOR." 

193219 RETURN 

19359 PRINT"{CYN}TG YOUR RIGHT IS A VERY 
LONG CORRIDOR. TOG THE SOUTH THERE IS & 
UITE A” 

196369 PRINT"LGNG HALLWAY..." 

193790 RETURN 

194966 PRINT"{CYN3THIS ROOM SEEMS A LITTL 

E DAMP." 

16419 RETURN 

164590 PRINT"{CYN3 THIS ROGM ABSOLUTELY S7 
Inks.” 

19466 IFZO=1THENPRINT" THERE IS A FUDDLE 

OF BLOOD ON THE FLOOR." 

19479 RETURN 

19569 PRINT"{CYN}3 THIS ROOM LOOKS LIKE MA 


GIC WAS ONCE PERFORMED HERE.” 
16519 IFWI=1THENPRINT"THERE IS A PUDDLE 
OF WATER ON THE CONCRETE FLOOR. ” 


19529 IFWI=@THENPRINT"THERE IS A TALL TH 


IN BLOCK OF ICE. IN THE BLOCK OF ICE Y 
ou" 
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1G@353a0 IFWI=GTHENPRINT"CAN SEE THE BLURRE 
D OUTLINE CF A PERSON." 

165490 RETURN 

19550 PRINT" ICYNGTHIS PLACE LOCKS LIKE A 
GRAVE ‘fARD,. ” 

1GSé6é0 RETURK 

[G600 PRINT" CCYNS THERE 1I5 AWM OLD MODEL 

T? FORD IN THIS SMELLY ROOM, ALONG WITH 
OLD" 

19610 PRINT’ MOTOR CAR PARTS. " 

1G620 RETURN 

17650 PRINT"{CYNSTHERE IS A THICK MIST I 

NM THIS Fada. YoU CAN’ T EVEN SEE YOUR HAN 
D IN" 

196546 FRINT"FRONT OF YOU," 

{GS?O0 RETURN 

19784 PRINT" (CYN} THERE ARE GARDEN TOGLS 
SCATTERED ALL OVER THE FLOOR. ONE OF 
THESE” 

sie ak Ear ee armen een es MIGHT COME IN VERY H 


tos ioe RETURN 


I9VS90 PRINT"{CYN: TOGO YOUR NORTH IS A RATH 
ER LONG HALLWAY. ” 

16°68 RETURN 

196806 FPRINT"CCYNJRGOMS LEAD GFF IN EVERY 
DIRECTION FROM THIS ROOM. I HOPE YOU P 
ICK THE” 

19S51¢@ PRINT"RIGHT ONE, " 

19S2G0 RETURN 

163356 PRINT’ {CYNS THIS ROOM 15 IN THE SHA 
PE OF Ay CIRCEE.. IL FEEE Ave tthee Dv 227 a 
19360 RETURN 

19°0¢@ PRINT" (CYN3 THIS ROOM I5 SHAPED LIK 

E A TRIANGLE. I CAN’ T MAKE GUT THE DOOR 


1967iG RETURN 

19GP9SH PRINT" LCYNI THERE ARE HUNDREDS OF IM 
IRRORS ALONG THE WALLS. I CAN’ T MAKE QUT 
WHICH" 

199690 PRINT"IMAGE IS YOU AND WHICH IMAGE 
> ME” 

19978 RETURN 

1199806 PRINT"(CYNSNORTH, SOUTH, EAST OR W 
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EST, TAKE YOUR FICK!" 
11919 RETURN 

11959 PRINT"<(CYN}2 WOULD LIKE TO CONGRAT 

NLATE YOU OM GETTING THIS FAR INTG T 
HE " 

11966 PRINT"ADVENTURE. I WOULDN’T GO MAK 
ING ANY RASHMOVES NOW, IF I WAS YOU." 
1197G RETURN 

11196 PRINT" {(CYN}THE FLGOR IS COMPLETELY 
COVERED WITH TibeSs: 

11119 RETURN 

11156 PRINT"(CYN3YGU CAN HEAR A FUNNY Ma 
ANING NOISE. IT SEEMS TO BE COMING FROM 
THE ” 

11160 PRINT"WEST!" 

11178 RETURM 

1120@ PRINT"THERE ARE BEAUTIFULLY DECORA 

TED TILES UNDER YOUR FEET. JUST HOPE T 
HAT" 

11219 FRINT"THERE ISN’T A TRAP DOOR ANYW 

HERE! " 

11229 RETURN 

11259 PRINT"NICE GOING, I WOULD BE VERY 

CAREFUL ABOUT YOUR NEXT MOVE." 

11269 RETURN 

11390 PRINT"{CYN3A DOGR JUST SLAMMED SHU 


JT SOMEWHERE IN THE CASTLE.” 
1131@ PRINT"AS YOUR EYES RULL TO THE RGO 


F YOU CAN SEE A DEAD BODY HANGING.” 
1132@ PRINT"A DROP OF BLOOD HITS YQU ON 
THE FACE. CBVIOGUSLY THIS HAS HAPPENED" 
11336 PRINT"RECENTLY. " 

11346 RETURN 

11359 PRINT"{CYN3YOU PULL BACK THE CURTA 
INS IN YOUR BEDROGM. YOU CAN SEE TH 
E SUN” 

11366 PRINT"IS SHINING BRILLIANTLY. You 
REALISE NOWTHAT IT WAS ALL A DREAM.” 
114378 PRINT"BUT AS YOU EXIT YOUR BEDROOM 
, You FIND" 

11386 FORA=1TO19@6: NEXT: PRINT" {WHT3A VOOD 
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11399 


NIGHT 
114996 


READY. 


PRINT"{YEL3I WOULDN’T GQ 
“OU. s a 


IF I WAS 
END 
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TO BED TO 


SPRITE CREATION 


This program is a very handy tool when you're writing 
games, as it will help you to define sprites very 
easily. Here's what you have to do: 

1 — Use the cursor keys to define your sprite 

2 — Use the function keys for sketching and rubout 

3 - After you've created your sprite, you'll be able 

to view it and enlarge it 
4 - You can also view the sprite in multi-colors 
9 — Next, you'Ll be given the data for the sprite. 


You can either copy it down by hand, or have the 
computer dump it to the printer. 


Note that with this program you can define multi-colored 
sprites, if you wish to. 


1 PRINT" {CLR" 

2 DIMQ(22) ,Wl22) ,E(22) 

& PRINT” CHOME F¥2ZKZKSKVSKLKAKLSKLSKSYSKLKLSNES" | 
FORA=1TO29G PRINT "#2X2KX2K2HELKLKLSELKELKLESE 
2 NEA 

19 PRINT" €HOGME}" :SC=19249: A=O: B=G: CL=5529 
6 


11 PRINT" CCUR 


+{CUR 
s{ CUR 


7{( CUR 
+{CUR 


+i CUR 


13 PRINT" CCUR RTST CUR 


RT}<7CUR 
RT3}{CUR 
RT3€CUR 
RT3{CUR 


DNS {CUR 
RT;{CUR 
RT? (CUR 
RTs €CUR 
RTs{ CUR 


RTs i CUR 
RT €CUR 
RT? {CUR 
RT (CUR 
RT{CUR 


RT }@CCCECCCCECCECECEG" 
12 PRINTSPC(24) "@SPRITE CREATERG" 


{CUR RT} {CUR RTF{ CUR 
{CUR RTT CUR RTF(CUR 


z 
3{CUR 


RTI {CUR RTI{CUR 
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RTs ¢( CUR 
RT3{ CUR 


RT}<CUR 
RT3}<{CUR 


RTS(CUR 
RTs{( CUR 
RT3(CUR 
RT( CUR 
RTsS{ CUR 


RT?<{CUR 
RT3{CUR 
RT}<{CUR 
RT3<CUR 


RT 
eT 
RT 
RT 
RT 


RT 
RT 
RT 
RT 


fy O 


{CUR RT}(CUR RT}{CUR 
CCCECCCEESEEC@CER" 

4 PRINTSPC(24)"’QqQ’ 

5S PRINTSPC(24) "° FS? 
i6 PRINTSPC (24) "'F?? 
17 PRINTSPC (24) "’ RETURN’ 


TO RE-RUN..." 
TO RUBOUT.." 
TO SKETCH.." 

DATA..." 


=O GETAS 
208 ITFAS="Q" THENGOTO1I1S 


49 IFASB="{CUR 


UP3" THENB=B- 1 


38 IFAS="{CUR DN} "THENB=Brt 
69 IFAS="{CUR Li" THENA=A-1 
78 YFASB="{CUR RTF" THENA=At+1 
8G ITFAS=CHRS (13) THENZESOS 

Sl TFAS=""THENZ=1 

S2 IFAS=" THENZ=9 

83 IFZ=GTHENSS 

S83 IFA=10RA=3QRA=SORA=7ORA=SP0RA=110RA=13 
CRA=1S50RA=1 70RA=1 90RA=2 1ORA=230RA=25THEN 


Z2=2 


26 IFB<STHENB=9 


1906 IFBS26THENB=26 
116 IFACSTHENA=¢G 


1290 IFAS+23THENAH=23 


RT (CUR RTS{ CUR 


RT 


139 TFZ=GTHENPOKESCt+At+4OXB, 32: FORT=1TO32 
<NEXNT! POKESC+A+49*B, 166: POKECL+A+4@%B, 1 
131 IFZ=1THENPOKESC+At4OXB, 160: POKECL+At 
4G%B,14:FORT=1TO3G: NEXT! POKESC+At4OXB, 42 
132 IFZ=2THENPOKESC+tAt49XB, 168: POKECL+At 
4GXB, 14: FORT=1TO3G: NEXT: POKESCtAt+49XB, SO 
133 IFZ=2THENZ=1 

149 GOTO2S 


L2IGH REM KKHKHKKE 
2Gig REM #DECODEX 
LO2G REM KKKKKHHH 


2G21 
2GB3G 
2931 
2OG32 
LOS 
21 GDS 


2119 
2126 


2121 


PRINT" {HOME} "SPC (27) "STAGEHR 1" 
FORT=1TO021 

IFT=1THEN2G9S 

SC=5C+49 

FORR=9TO?/ 

IFPEEK (SC+R) =169THENGOSUBSEED 


NEXT 
NEXT 


PRINT" {HOME} "SPC (27) "STAGE# 2” 
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atl ont oll onl ol on a ok 
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QQ ws 


) 


mw 
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a) 
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B 


Ca 
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SC=1832 
FORT=1T021: 
SC=SC+4G 
FORR=8TO? 
IFPEEK (SC+tR) =169THENGOUSUBSE OG 
NEXT 

NEXT 


IFT=H=1THENZ162 


FRINT" CHOME"SPC(27) "FINAL STAGE” 


SC=144G 
FORT=17TO21: IFT=1THEN2238 
SC=5C+40 
FORR=9TO? 
IFPEEK (SC+R) 
NEXT 

NEXT 
GOTOZ341 


=1S6GTHENGCCSUBY EID 


PRINT" (CLRI CPCECCESEECEECCECCECCEECE 


GeeerreerereEr”" 


PRINT" GeECCECCECCCCECEE 
rece” 


CECCDATACE 


BECECECEEGE” 


2298 


DATA TO THE 


rR OR 
mest 
Famed 5 5) 


231d 
2208 


hh) oth 
hh) 


tw fh) 


Q 


AA WOW © 


39 
£340 


2341 


IN RIT 


PRINTS PRINT"DO Yau 
<RVS GNIPCRVS 
TRVS ONGWiRVS OFFSRITE IT DOWN. 

TNFUTAS: TFAS="F" THENOGPEN4S, 4: CMD4 
PRINT Clk. GRTH=LiTGes 
FRINT"DATA"@G@(TI","WCT)", 
NEXT 


ss a aT 


TFAS="P" THENPRINT#4: CLOSES: PRINT * 


PRINT” CHOMESHIT RETURN 


GETAS: ILFAS* >CHRS( 13) THENZ 339 
G 0G T Cie Pal 3 J van 


PRINT" LCLRIWOULD 


QUE SPRITE™ 


2342 


2343S 


INFUTAS: LFAS="V¥" THENSHAS 
GOTOC22? 


YUU LIKE TO VIEW 


eeeee 


as eee eer eT eg ee ee re (ef 


WANT TO SEND THE 
OFFSRINTE 


ae 


TQ CONTINUE” 


x 


23590 PRINT" {CLRIWOULD YOU LIKE TO CREATE 
ANGQTHER SPRITE" 


2351 
23560 
Z2SOL 
2366 


FORN=98TO62:POKESS2+N,G:NEXTIN=9 
INPUTAS: IFAS="Y" THENCLR: RUN 
IFAS="N" THENZ370 


GOTO1¢ 
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23708 PRINT"ZCLR3} YOU HAVE BEEN 
"SPRITE CREATER’ "SEND 

3998 V=353248:POKEVt21,4:POKE29892,13 

3992 D=S32:POKEV+23,06:FOKEVt29,9:POKEVtS 


USING THE 


7,1 tS PQKEV+t33, 1: FPCOKEV+2es,9 


33GB 
SGA 
3OGiD 
3926 


POKEVt4, 260: POKEV+tS, 299 
POKEV+4a, 1 
FORTT=iTO21 


FORKED, @Q(TT) :FQKED+1,W(TT) ;>POKEDt2,E 


(TT) 2 D=D4+3 2 NEXT 


39598 PRINT" {CLR3}DO YOU WANT YOUR SPRITE 

ENLARGED" 

396351 INPUTAS: IFAS="Y" THENPOKEV+23, 4: P0KE 
+29,4 

“952 PRINT" {CLRIIS YOUR SPRITE MULTI-COL 

GOURED. " 

39353 INPUTAS: [FAS="Y" THENGOSUBSSSS 

3955 PRINT" {(CLR3" 

S959 FORX=GTO2GG: POKEV+t4, X: POKEVtTS, KK: NEX 

T 

3869 PRINT"{CLRIHIT *“RETURN’ TO CONTINUE 

9878 GETASB: IFAS< >CHRS(13) THENSS7D 

393898 GOTO2279 

266989 IFR=OTHEN@(T)=Q(T) +128 

SG19G IFR=1THENG(T) =Q(T) +64 

3926 IFR=2THENQ(T) =Q(T) +32 

5630 IFR=3STHENG(T) =Q(T) +16 

2940 ITFR=4THENGQ(T) =Q(T) +8 

50590 IFR=STHENG(T)=Q(T) +4 

39690 TFR=6THENGQ(T)=@Q(T) +2 

S378 ITFR=7THENG(T)=@(T) +1 

3888 RETURN 

6908 TFR=GTHENW(T)=W(T) +125 

691906 ITFR=1THENW(T)=W(T) +64 

6926 IFR=2THENW(T) =W(T) +32 

6936 IFR=3THENW(T)=W(T) +16 

6946 TFR=4THENW(T) =W(T) +3. 

695G ITFR=STHENW(T)=W(T) +4 

S960 IFR=6THENW(T)=W(T) +2 

6070 IFR=?7THENW(T)=W(T) +1 

6930 RETURN 

YO06OG IFR=STHENE(T) =E(T) +128 


7G1LDG 


IFR=1THENE (T) =E(T) +64 
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“79268 


7BS3G 
7848 
7OBIDG 
7? B68 
7OB?7DB 
783868 
SIGS 
BAIG4 
SH1G 
OUR 

SB2E 
SI34 
eG35 
SAG495 
SHh38 
OUR 

3HhG 
38/7 
8SI75 


SH3h8 
SI9”G 


S199 
311i@¢ 


S115 
S1l2g 


3139 


IF R=2THENE(T) =E(T) +32 

IFR=STHENE (T)=E(T) +16 

IFR=4THENE (T)=E(T) +8 
IFR=STHENE (T) =E(T) +4 
IFR=6THENE(T)=E(T) +2 
IFR=7THENE(T)=E(T) +1 

RETURH 

REM ¥¥* MULTI-COLOQURED *¥** 
POKEV+41,1 

PRINT"{CLRIWHAT COLOUR IS MULTI-CQOL 


a 


PRINTOPRINT"NUMBER PLEASE (1TO15)”" 
PRINT: INPUT"COLOR";C 
IFC<10RC>15THENSS 2a 
POKEV+28,4:POKEVt3S/,C-1 

PRINT" {CCLRIWHAT COLOUR IS MULTI-COL 


Ze 


PRINT: PRINT"NUMBER PLEASE (1TO15)” 
PRINT: INPUT"COLOR";C 
IFCCLORCSISTHENSS469 


POKEV+38,C-1 

PRINT"{CLR}WHAT COLGUR IS SPRITE" 
PRINT:PRINT"NUMBER PLEASE (1TO015)" 
PRINT: INFUT"COLOR"3C 
IFC<10RC?15THENS19@ 

POKEV+41,C-1 

PRINT"{CLR}ARE YOU SATISFIED WITH T 


HE COLOURS" 


31496 


Sis¢g 
S16G 


INPUTAS 
IFAS="Y" THENRETURN 
CGOTOSG19 


READY. 
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